ermitteln ob Fenster geöffnet wurde?

[smart]

Wie kann man ermitteln, ob ein Fenster (Form) geöffnet wurde und darauf reagieren?

[Helmi]

Hallo,

warum nicht so:

Code:

If Form1.Visible then
  begin
    //mach was
  end;

Wenns sichtbar ist, ist es doch geöffnet, oder?

mfg
Helmi

[Harald]

Guten Morgen,

indem Du das Ereignis "OnShow" des Forms auswertest.

Gruß und schöne Tage
Harald

[smart]

Vielen Dank für die Antworten.
Aber so einfach ist es wohl doch nicht. Wenn ich so abfrage, kommt eine Fehlemeldung, da das Fenster vileicht noch nicht auf ist. Mit OnShow kann ich erst reagieren wenn das Fenster bereits auf ist. Ich möchte von einer Hauptform aus ein weiteres Fenster öffnen und zuvor abfragen ob bereits ein Fenster auf ist und wenn ja ein anderes öffnen.

[Helmi]

Hallo,

wieso machst du es nicht so:

Code:

If Form2.Visible then
 Form3.Show;

Oder versteh ich da was verkehrt?

mfg
Helmi

[smart]

Wenn ich mit If Form2.Visible then Form3.Show; abfrage, kommt eine Fehlermeldung da die Form2 noch nicht offen ist.

[Helmi]

was für eine Fehlermeldung?

Wann erzeugt du die Forms?

[Neutral General]

Ich hab mir die Situation mal nachgebaut :

-3 Formulare.
-2 Buttons.

Wenn ich in den 1.Button das schreibe :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender : TObject)
begin
  if Form2.Visible = true then
   Form3.Show;
end;

und in den 2.Button das :

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender : TObject)
begin
Form2.Show;
end;

dann passiert beim Klick auf Button1 erstmal nichts. Wenn ich dann auf den 2.Button Klicke erscheint Form2 und wenn ich dann wieder auf Button1 klicke dann erscheint Form3, und zwar ohen irgendwelche Fehler :gruebel:

[edit]Rechtschreibfehler korrigiert[/edit]

[Helmi]

Ich hab die Vermutung dass er die Forms zur Laufzeit erzeugt
und dass er deshalb einen Fehler erhält

Da würde doch Assigned helfen oder?

[smart]

Entschuldigung! Ich hatte vergessen zu schreiben, dass die Forms zur Laufzeit erzeugt werden! Ich habe zwar eine Lösung mit eine Variable, ist aber sehr umständlich und nicht so schön gelöst. Ich habe aber auch noch nicht so viel Erfahrung mit Delphi. Habe zuvor mit VB gearbeitet. Mir ist es sehr wichtig von Euch etwas zu lernen.