Neues Fenster erstellen während die Anwendung läuft!

[Dash]

Hi,

ich habe vor ein neues Fenster zu erstellen während die Anwendung läuft.
Leider habe ich keinen Plan davon, wie ich so etwas umsetzen könnte.

Dazu soll jedes neue Fenster einen neuen Namen bekommen also Form1 und dannach Form2 usw.

würde mich freuen wenn jemand wüsste wie ich so etwas umsetzen kann


MFG
Dash

[Ultimator]

Delphi-Quellcode:

var Form2:TForm;
[...]
Form2:=TForm.Create(self);
Form2.Top:=30;
Form2.Left:=30;
Form2.Width:=200;
Form2.Height:=200;
Form2.Show;

Genau wie mit (fast) allen anderen Kompos auch

[Dash]

Hi,

danke erstmal für deine Antwort
Das Problem ist aber noch, das ich so nicht unendlich Formen erstellen kann
Man soll so viele Formen wie möglich erstellen können, aber halt mit unterschiedlichen Namen, also so das automatisch wenn der Name Form1 belegt ist, Form2 kommt dann Form3 dann Form4.... genauso wie halt bei Delphi wenn man auf Neu -> Form klickt


MFG
Dash

[supermuckl]

dann mach ein array of Tform und speicher da alle forms ab bzw generier neue

[Dash]

Zitat von supermuckl:

dann mach ein array of Tform und speicher da alle forms ab bzw generier neue

Hi,

leider habe ich keinen Plan, wie genau ich das umsetzen soll

MFG
Dash

[Nikolas]

Nimm dir doch einfach eine globale Variable und zähl die hoch wenn du ein Form erstellt hast. Wenn du auch Forms zertörst, kannst du dann in einer Schleifer die Zahlen abklappern und schauen, ob das entsprechende Form noch existiert.

[Dash]

Hi,

OK Danke, werd das mal versuchen

MFG
Dash

[Dash]

Hi,

also ich habe jetzt versucht die Variable hochzuzählen

Code:

var
Form: TForm;

[...]
begin
      Form := IntToStr(StrToInt(Form) +1);
end;

Leider bekomme ich die Meldung: Inkomplitable Typen: TForm und String

MFG
Dash

[supermuckl]

puuh

also !

so oder so ähnlich sollte es funzen ( ein wenig eigenregie sollte schon vorhanden sein und hilfe studieren wär auch mal net schlecht )

Delphi-Quellcode:

arr: array[0..10] of Tform; <- sollte global deklariert sein

// createn / anzeigen
var
i:integer;
begin
for i := 0 to 10 do begin
arr[i]:=TForm.Create(self);
arr[i].Top:=30;
arr[i].Left:=30;
arr[i].Width:=200;
arr[i].Height:=200;
arr[i].Show;
end;
end;

// closen / free z.b. form 4:
if arr[3] <> nil then arr[3].free;

[Dash]

Hi,

vielen vielen Dank
funzt super

nächstes mal werde ich selber mehr energie reinstecken, versprochen

MFG
Dash