Einzelnen Beitrag anzeigen

fatalerror
(Gast)

n/a Beiträge
 
#2

Re: Dynamisch Formen erzeugen

  Alt 1. Okt 2009, 15:47
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
  Mit Zitat antworten Zitat