eine Form mehrfach öffnen

[Matze]

Bei mir klappt's so, wie im Anhang zu sehen.

Delphi-Quellcode:

procedure TForm1.BtnShowFormsClick(Sender: TObject);
var
  MyFrm: TForm1;
  i: Integer;
begin
  for i := 1 to 20 do
  begin
    MyFrm := TForm1.Create(Application.MainForm);
    MyFrm.Left := Random(Screen.Width - Form1.Width) + 1;
    MyFrm.Top := Random(Screen.Height - Form1.Height) + 1;
    MyFrm.Show;
  end;
end;

Edit: Der Button zum Öffnen von Formularen lässt sich natürlich auch mehrfach anklicken.

[Remedy7]

Guten Morgen,

vielen vielen Dank für eure Hilfe. Hat Funktioniert. Jetzt muss ich nur zusehen das ich da bissl Ordnung rein bekomme, vielleicht mit namen und so.

Danke für die nette Unterstützung

[SirThornberry]

Um auch die Freigabe wieder hin zu bekommen ist es ratsam die Forms in einem Array zu speichern. Damit hast du auch die Möglichkeit durch eine Schleife die verschiedenen Forms einfach anzusprechen:

Delphi-Quellcode:

private
  yourForms: array of TForm1;
var
  i: Integer;
begin
  SetLength(yourForms, 20);
  for i := 0 to length(yourForms) - 1 do
  begin
    MyFrm := TForm1.Create(Application.MainForm);
    MyFrm.Left := Random(Screen.Width - Form1.Width) + 1;
    MyFrm.Top := Random(Screen.Height - Form1.Height) + 1;
    MyFrm.Show;
    yourForms[i] = MyFrm;
  end;
[...]
  for i := 0 to length(yourForms) - 1 do
    yourForms[i].Free;
  SetLength(yourForms, 0);

[DeddyH]

Müsste sich nicht der angegebene Owner um die Freigabe kümmern?

[Matze]

Zitat von DeddyH:

Müsste sich nicht der angegebene Owner um die Freigabe kümmern?

Doch, wenn einer angegeben ist, sollte er das.

Beim manuellen Freigeben sieht man am Code schon, dass die Formulare auf jedenfall freigegeben werden.
Evtl. ist das sauberer, wenn man diese selbst freigibt, aber das kann wohl jeder machen wie er mag, wenn die Firma nichts vorschreibt.

[mkinzler]

Dann sollte man aber auch keinen Owner angeben. Zudem würde ich dann FreeAndNil() verwenden.

[omata]

Formulare werden mit Release freigegeben und nicht mit Free.