Panel mit div Kompos mehrfach

[huberlix]

Hab gestern mal ein bißchen rumprobiert.

Delphi-Quellcode:

Type
  TMyPanel = class(TPanel)
  Button1:TButton;
  Edit1:TEdit;
end;

...............
.........
var
  Panels : Array of TMyPanel;
........
........

Nun kann ich in einer Procedure neue Panels erzeugen. Dabei muss ich aber alle Kompos darauf ebenfalls erzeugen. Macht ja nix, es ist ja bekannt was drauf ist.

Delphi-Quellcode:

setlength(Panels,x);
Panels[High(Panels)]:=TMyPanel.create(self);
Panels[High(Panels)].Parent:=Form1;
...visible
...left
...
...
Panels[High(Panels)].Button1:=TButton.create(self);
Panels[High(Panels)].Button1.Parent:=Panels[High(Panels)];
....
....
....

oder so ähnlich. Aat jedenfalls funktioniert.

Gruß, Bernd