Prüfen ob Formlar schon angezeigt wird

[Klaus Kirchhoff]

Hallo,
gibt es für ganz normale Formulare, die mit xForm.Show angezeigt,
wurde die Möglichkeit zu Prüfen ob diese bereits offen sind, so
das man diese mit der Function BringToFront den Forcus drauf setzen
kann. Ich möchte es nicht modal aufrufen und habe auch keine MDI-Anwendung.

Besten Dank

[Patrick Sack]

Hi Klaus,
<br>
<br>öffnen von Fenstern mache ich meistens so:
<br>
<br>if xForm = nil then xForm := TxForm.Create(Self);
<br>xForm.Show;
<br>
<br>d.h. xForm <> NIL => Fenster ist schon geöffnet worden
<br>
<br>Und dann noch wichtig im Form X folgendes eingeben:
<br>procedure TxForm.FormClose(Sender: TObject;
<br> var Action: TCloseAction);
<br>begin
<br> action := caFree;
<br>end;
<br>
<br>procedure TxForm.FormDestroy(Sender: TObject);
<br>begin
<br> if xForm = Self then xForm := nil;
<br>end;
<br>
<br>
<br>mfg
<br>P