Forms Dynamisch Erstellen

[Hansa]

Was treibt ihr denn da ?

So erzeuge ich 1000 Forms:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
    frm : TForm;
begin
  for i := 1 to 1000 do begin
    frm := TForm.Create(Self);
    frm.Name := 'Form' + IntToStr(i);
  end;
end;

Was hat da ein Array, SetLength usw. zu suchen ? :shock:

[mkinzler]

Zitat:

Zitat von Hansa

Was treibt ihr denn da ?
...
Was hat da ein Array, SetLength usw. zu suchen ? Shocked

Der Unterschied zwischen deinem Code und dem Code vorher ist, das du die neu erzeugten Formulare einem vorhandenenen unterordnest anstatt alle Formulare dynamisch als globale zu erzeugen.

[cltom]

sorry, aber *aufwärm*, nachdem mir der Thread jetzt super geholfen hat.

Eine Frage dazu: habe jetzt genauso das so umgesetzt. Also Form1 mit Button, der beliebig viele Form2 erzeugt. Nun hat das die logische Folge, dass jedes dieser neu erzeugten Form2 hinter Form1 fällt, sobald ein neues Form2 erzeugt wird. Wie kann ich erreichen, dass alle Form2 vor (über) dem Form1 bleiben?

danke
tom

[SirThornberry]

hast du schon bringToFront versucht?

[cltom]

danke, aber hmmm, also das geht mal nicht:

for i := 1 to length(formlist) do formlist[i].BringToFront;

[dominikkv]

Zitat:

Zitat von cltom

danke, aber hmmm, also das geht mal nicht:

for i := 1 to length(formlist) do formlist[i].BringToFront;

hi
erstens würde ich nur bis high(formlist) gehen da du sonst ne Fehlermeldung beim letzten element bekommst und zeitens:
willst du das das formular immer im vordergrund ist (.formstyle := fsStayOnTop)? oder nur im vordergrund erstellt wird (wie schon gesagt .BringToFront)?

[cltom]

Zitat:

Zitat von dominikkv

hi
erstens würde ich nur bis high(formlist) gehen da du sonst ne Fehlermeldung beim letzten element bekommst und zeitens:
willst du das das formular immer im vordergrund ist (.formstyle := fsStayOnTop)? oder nur im vordergrund erstellt wird (wie schon gesagt .BringToFront)?

nun, eigentlich ist fsStayOnTop die einfachere und vielleicht sogar bessere Lösung, danke!