Dynamisch Formen erzeugen

[fatalerror]

Ein Tutorial dazu kenne ich nicht, ist aber relativ einfach:

1. die unit in die uses Liste aufnehmen

implementation

uses

unit2;

2. in der gewünschten Prozedur die Form erzeugen:



procedure TForm1...
var
Form2: TForm2;

begin
...
Form2 := TForm2.Create(Form1);

--> Form2 wird freigegeben wenn form1 freigegeben wird.

oder

Form2 := TForm2.Create(nil);
--> hier bist Du selbst verantwortlich für die Freigabe, es wird kein Owner übergeben.

oder

...
Form2 := TForm2.Create(Application);

--> Die Form wird freigegeben beim Beenden des Programmes