Entwickler-Ecke

Sonstiges (Delphi) - Form dublizieren


hibbert - So 08.02.04 17:35
Titel: Form dublizieren
Hi,
ich habe 2 Formblätter in meinem Project.

auf der ersten Form ist ein Button und eine Listbox.
auf der zweiten Form ist ein label, eine Edit und ein Button.

Wenn ich nun 3 mal auf den Button klicke (form1), dann soll mir jeweils eine neue Form angezeigt werden, also muss die Form dynamisch erstellt werden (*1).

Aber die neuerstellte Form soll genau so aussehen wie die Form2, die ich bereits vorher (manuel) erstellt habe. sozusagen ist form2 nur ein Template.
Der Button (Form2) hat jeweils die gleiche Funktion. Nur das label(form2) soll verändert werden, also zumindest die Caption).

(*1) Wie geht das erstellen von Dynamischen Formblättern?

thx hibbert


raven_22 - Sa 20.03.04 06:22
Ich hoffe mal, dass ich dir hiermit weiterhelfen kann.
Wenn nicht weiterkommst, dann sag bescheid.

Gruß raven 8)

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
 
...

uses Unit2;  // Um auf Form2 zugreifen zu können

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var Form2:TForm2;
    Form3:TForm2;
begin
Form3:=TForm2.Create(self);  // Form3 clonen
Form3.Parent:=Form3;         // Parent (Elternteil) setzen
Form3.Left:= 0;              // Ganz nach Links
Form3.Top:= 0;               // Ganz nach oben
Form3.Show;                  // Form3 anzeigen
Form3.Caption:= 'Ich wurde von Form2 geclont !';

end;

procedure TForm1.FormCreate(Sender: TObject);
var Form2:TForm2;
begin
Form2:=TForm2.Create(self);  // Form2 erzeugen
Form2.Parent:=Form2;         // Parent (Elternteil) setzen
Form2.Show;                  // Form2 anzeigen
end;


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!