Einzelnen Beitrag anzeigen

huberlix

Registriert seit: 10. Nov 2003
46 Beiträge
 
#4

Doch das mit dem Panelgeht

  Alt 1. Jan 2004, 19:43
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
  Mit Zitat antworten Zitat