Unendliche Formen erzeugen (wenn nötig)

[Pseudemys Nelsoni]

hi,

ich habe einen irc client und möchte auch per dcc was senden/empfangen können...dasproblem ist, bei jedem neuen transfer muss auch automatisch ein neues fenster erzeugt werden, wie kann ich das machen?

[Illuminator-23-5]

du musst einfach eine weitere Variable vom Typ TForm1 (oder wie es bei dir heißt) erstellen. das könntest du per array machen
unendlich viele wirst du nicht erzeugen können, aber schon viele!

[Pseudemys Nelsoni]

erstmal danke für den tip, wie ich das realisiere weiss ich noch nicht, aber mal ne andere frage...nicht unendlich? mIRC kann doch auch unendlich je nach transfers erstellen oder?

[MatthiasW]

Hallo,

du könntest mit:

Code:

var myForm: TForm;

myForm := TForm.CreateNew(Application);
myForm.Width := 200;
myForm.Width := 200;
myForm.Show;

dir immer wieder ein neues Formular per code erzeugen.
Natürlich solltest du alle gewünschten Eigenschaften nach deinen bedürfnissen noch anpassen.

Mfg Matthias

[Pseudemys Nelsoni]

moin mathias, danke für den code mal schauen. btw: kann ich damit mehrere erzeugen? ich meine "myForm" darf doch nur 1mal existieren oder?

[Illuminator-23-5]

Zitat:

aber mal ne andere frage...nicht unendlich?

unendlich kannst du deswegn nicht erstellen,
weil unendlich > 9999999999999999^999999999999999999999999!
und außerdem braucht das glaub ich ja auch eine bestimmte menge an speicherplatz!

[MatthiasW]

Hallo,

Zitat von silent:

moin mathias, danke für den code mal schauen. btw: kann ich damit mehrere erzeugen? ich meine "myForm" darf doch nur 1mal existieren oder?

du könntest das ganze doch in ein Array stecken, also

Code:

var myForm: Array[0..10] of TForm;

Mfg Matthias

[Spezi1980]

Nimm doch einfach einen dynamischen array, dann beschränkt nur noch der vorhandene Speicherplatz die Anzahl der Fenster die du öffnen möchtest.

[Pseudemys Nelsoni]

hallo, irgendwie funzt das:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var myForm: Array[1..10] of TForm;
begin
  myForm := TForm.CreateNew(Application);
  myForm.Width := 200;
  myForm.Width := 200;
  myForm.Show;
end;

aber nicht

[rayman]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var myForm: Array[1..10] of TForm; 
    n: integer;
begin
for n:=0 to 10 do begin 
  myForm[n] := TForm.CreateNew(Application); 
  myForm[n].Width := 200; 
  myForm[n].Height := 100; 
  myForm[n].Show; 
  end;
end;

!