1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
unit InstanceSections2;
interface
uses InstanceSections, Classes, Forms, Controls, ExtCtrls, Types,
Graphics, Messages, ComCtrls, Sections, MySQLConnection, TntComCtrls;
type
TInstanceSectionForm2 = class(TSectionForm2) // for MA 2.0
constructor Create(AOwner: TComponent; Data: Pointer;
StatusBar: TTntStatusBar = nil); reintroduce;
private
StatusBar: TTntStatusBar;
protected
ConnectionData: Pointer;
public
//MySQLConn: TMySQLConn;
end;
implementation
//------------------------------------------------------------------------------
constructor TInstanceSectionForm2.Create(AOwner: TComponent;
Data: Pointer; StatusBar: TTntStatusBar);
begin
inherited Create(AOwner, StatusBar);
//self.MySQLConn:=MySQLConn;
ConnectionData:=Data;
self.StatusBar:=StatusBar;
end;
end.
|
