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
|
unit InstanceSections;
interface
uses Classes, Forms, Controls, ExtCtrls, Types, Graphics, Messages, ComCtrls,
Sections, MySQLConnection, TntComCtrls;
type
//All individual Forms (which are triggered by the SidebarSections)
//descend from this class so they can be docked to a TSectionPanel from the
//MainForm more easily
TInstanceSectionForm = class(TSectionForm)
constructor Create(AOwner: TComponent; MySQLConn: TMySQLConn;
StatusBar: TTntStatusBar = nil); reintroduce;
private
StatusBar: TTntStatusBar;
public
MySQLConn: TMySQLConn;
end;
implementation
//------------------------------------------------------------------------------
constructor TInstanceSectionForm.Create(AOwner: TComponent;
MySQLConn: TMySQLConn; StatusBar: TTntStatusBar);
begin
inherited Create(AOwner, StatusBar);
self.MySQLConn:=MySQLConn;
self.StatusBar:=StatusBar;
end;
end.
|
