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:

constructor TJTabellenDB.Create(AOwner: TComponent);
var
  Pfad : String;
  f, c : Integer;
  Panelkopf, Panel : TPanel;
  Liste : TListBox;
begin
  inherited;
  // Objekterstellung
  Panelkopf:= TPanel.Create(Self);
  Panelkopf.Parent:= Self;
  Panelkopf.Height:= 20;
  Panelkopf.BevelWidth:= 1;
  Panelkopf.Align:= alTop;
  Panelkopf.Caption:= '';
  // Titelpanel
  Panel:= TPanel.Create(Self);
  Panel.Parent:= Panelkopf;
  Panel.Width:= 100;
  Panel.BevelWidth:= 1;
  Panel.Align:= alLeft;
  Panel.Caption:= 'P1';
  // Listen erstellen
  Liste:= TListBox.Create(Self);
  Liste.Parent:= Self;
  Liste.Width:= 100;
  Liste.Align:= alLeft;
//  Liste.Items.Add('S1');
end;