Forms Dynamisch Erstellen

[nat]

also jetzt ma von vorne

ich würde mir mein formular komplett so designen wie ichs gerne möchte.
dann speichere ich die unit und binde sie in meine main-unit ein.
gehen wir ma von der standard namesvergebung aus.
mein dynamisch erzeugtes form (dein s.g. chat-fenster bei icq)soll ma
form2 in der unit unit2 sein. dann fügst du bei deinem projekt
(meist ja form1 in unit1) in der uses klausel "unit2" hinzu.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Unit2, Windows, Messages, ...;

dann deklarierst du dir n array der die ganzen dynamisch erstellten
forms aufnimmt.

Delphi-Quellcode:

var
  FormList: array of TForm2;

und wenn du ne neue instanz von form2 erstellt dann vergrößerst du
den array um ein element und speicherst es da.

Delphi-Quellcode:

var
  frm: TForm2;
begin
  frm := TForm2.Create;  
  frm.Show;

  setlength(FormList, length(FormList)+1);
  FormList[high(FormList)] := frm;
end;

wenn dein prog beendet wird oder du aus einem anderen grund alle
instanzen von form2 freigeben willst sollte das so aussehen
(z.B. in OnDestroy von deinem form1)

Delphi-Quellcode:

var
  i: integer;
begin
  for i:=0 to high(FormList) do
    FormList[i].free;
  setlength(FormList, 0);
end;

edit: da war wohl jemand schneller als ich...