Dynamisch Formen erzeugen

[stho]

Hallo Leute,

Welche Tutorials muss ich mir angucken wenn ich dynamisch Formen mit bestimmten Inhalten erzeugen will? (Beispiel: Chat-Fenster)

Gibts dazu gute Tutorials oder Beispiele?

Liebe Grüße

[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

[stho]

Aber hat denn dann die Form dann auch die Buttons / labels / Funktionen hinter den buttons / ... ? :gruebel:
Ist sie sichtbar oder unsichtbar?
Kann ich die verwenden wie die Form1? oder ist die nur imaginär? :gruebel:

Danke schonmal für deine ausführliche Antwort

[fatalerror]

Du erzeugst die Form mit allen Buttons und Funktionen, Prozeduren ganz normal innerhalb der IDE.
Anschliessend legst du in den Projekt Optionen fest, dass dieses Formular nicht automatisch erzeugt wird.
Du kannst dann innerhalb deines Programmes die Form (fast) beliebig oft erzeugen.

Um die Form anzuzeigen nachdem du sie erzeugt hast, verwendest du einfach den Befehl Form_xxx.show;

Beispiel um eine Form zu erzeugen und Modal anzuzeigen
[/delphi]
var
forminfo: TForm2;
begin

forminfo:= TForm2.Create(nil);
try
forminfo.Caption:= 'dynamisch erstellte Form;
forminfo.ShowModal;

finally
forminfo.Free;
end;

end;
[/delphi]