![]() |
Re: Forms Dynamisch Erstellen
Was treibt ihr denn da ?
So erzeuge ich 1000 Forms:
Delphi-Quellcode:
Was hat da ein Array, SetLength usw. zu suchen ? :shock:
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; |
Re: Forms Dynamisch Erstellen
Zitat:
|
Re: Forms Dynamisch Erstellen
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 |
Re: Forms Dynamisch Erstellen
hast du schon bringToFront versucht?
|
Re: Forms Dynamisch Erstellen
danke, aber hmmm, also das geht mal nicht:
for i := 1 to length(formlist) do formlist[i].BringToFront; |
Re: Forms Dynamisch Erstellen
Zitat:
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)? |
Re: Forms Dynamisch Erstellen
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:42 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz