Eine Form nur einmal erzeugen und anzeigen???

[romber]

Hallo,

beim klick auf einen Button wir eine Form erstellt und angezeigt:

Code:

...
Application.CreateForm(TForm3, Form3);
Form3.Show
...

Wie kann ich davor überprüfen, ob die Form bereits estellt wurde und gerade angezeigt wird?

[shmia]

Zitat:

Zitat von romber

Wie kann ich davor überprüfen, ob die Form bereits estellt wurde und gerade angezeigt wird?

Delphi-Quellcode:

if not Assigned(Form3) then
   Application.CreateForm(TForm3, Form3);
Form3.Show;

Man kann das ganze auch in eine Hilfsfunktion packen:

Delphi-Quellcode:

procedure CreateAndShowForm(FormClass: TFormClass; var Reference);
begin
   if not Assigned(TComponent(Reference)) then
      Application.CreateForm(FormClass, Reference);
   with TCustomForm(Reference) do
   begin
      Show;   // anzeigen
      // falls der Benutzer das Formular minimiert hat,
      // wird es nun auf jeden Fall wieder angezeigt
      WindowState := wsNormal;
   end;   
end;

[romber]

Hat geklappt! Sehr hilfreich! Vielen Dank! :-D :-D