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