Einzelnen Beitrag anzeigen

Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#8

Re: Forms Dynamisch Erstellen

  Alt 13. Mai 2006, 00:34
Hallo,

wenn es dir um gewöhnliche Formulare geht, kannst du es so machen:

Delphi-Quellcode:
type
  MyForm = TForm;

var
  List: array of TForm;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Neues Form:
  Setlength(List, high(List) + 1);
  List[high(list)]:= MyForm.Create(Self);
end;
Attribute kannst du dann so setzen;

Delphi-Quellcode:
List[0].Width := 500;
List[0].Height:= 200;
List[0].Show;

List[1]. ...
Je nach Anzahl der Formulare. Freigeben geht dann einfach so:

FreeAndNil(List[x]);
Grüße
  Mit Zitat antworten Zitat