Einzelnen Beitrag anzeigen

Remedy7

Registriert seit: 9. Sep 2010
7 Beiträge
 
#1

Form aufrufen und anpassen

  Alt 28. Sep 2010, 11:50
Delphi-Version: 2006
Hallo Forum,

hatte vor kurzen die beliebte Frage danach eine Form mehrfach zu öffnen.
Die sah in meinem Programm nach tatkräftiger Unterstützung der User dann so aus:

Delphi-Quellcode:
 MyForm:Array of TForm2
      setlength(MyForm,11)

      for t := 0 to 10 do begin
        MyForm[t] := Form5.Create(Application);
        MyForm[t].show;
      end;
   begin
      for i:=1 to Eingabe do

      begin
        MyFrm := TForm5.Create(Application.MainForm);
        MyFrm.Left := Random(Screen.Width - Form5.Width) +1;
        MyFrm.Top := Random(Screen.Height - Form5.Height) +1;
        MyFrm.Show;
      end;
Leider war das nicht sehr zufriedenstellend da die Formen keine Bezug zur eigentlichen Form hatten.

Dann habe ich es über Buttons realisiert:
Delphi-Quellcode:
procedure TForm2.Button10Click(Sender: TObject);
var
  i: Integer;
begin
with TForm5.Create(Application.MainForm) do; //self

begin
  for i := 1 to 1 do


  Form5.left:= Random(Screen.Width - Form5.Width);
  Form5.Top:= Random(Screen.Height - Form5.Height);
  Form5.caption:= Form2.Label22.caption;
  Form5.Name := Form2.Label22.caption;
  Form5.Show;

end;
end;
Anhand von "Form5.caption:= Form2.Label22.caption" sollte man auch sehen was ich mit Bezug meine.

Auch das funktioniert nur leider ist es so das mir Form 5 zwar neu geöffnet wird aber dafür die vorher geöffnete Form5 geschlossen wird.

Wie kann ich das lösen das die "alte" Form5 geöffnet bleibt obwohl ich mit einem anderen Button die Form nochmal öffne?


BEste Grüße
  Mit Zitat antworten Zitat