Programm soll zwischen Vordergrund und Hintergrund switchen

[kamel08]

Hallo Delphi-Gemeinde;

Problem :
Als Reaktion auf einen Hotkey soll das Programm zwischen Vordergrund und Hintergrund switchen.

Auch das funktioniert, aber wenn man manuell ein anderes Fenster über das Programm legt,
funktioniert das nicht mehr so, wie gewünscht.
Das Programm reagiert auf den Hotkey,
verschwindet aber im Hintergrund.
In meiner Funktion 'Switch' muß ausgewertet werden, ob das Fenster _wirklich_ sichtbar ist
und da steckt der Fehler und ich hoffe auf Eure Hilfe.

Delphi-Quellcode:

Function TForm1.Switch:Boolean;
var VISIBLE : Boolean;
begin
     VISIBLE := IsWindowVisible(Handle); // klappt nicht ganz
     // VISIBLE liefert auch dann TRUE,
     // wenn ein anderes Fenster über das Programm-Fenster gelegt wird
     if VISIBLE then
     begin
          SetWindowPos(Application.Handle, HWND_BOTTOM, Left,Top, Width,
             Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
          ShowWindow(Handle,SW_HIDE);
          result := TRUE;
     end else
     begin
          if IsIconic(Handle) then ShowWindow(Handle,SW_Restore)
             else ShowWindow(Handle,SW_SHOW);
          Application.BringToFront;
          result := FALSE;
     end;
end;

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
var i:Integer;
begin
     // wenn F1 bis F12 als Hotkey definiert sind, werden sie hier abgefragt
     for i := 0 to 11 do if Msg.HotKey = FunktionsTaste[i].ID then
          FunktionsTaste[i].Flip := Switch;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
     RegisterFTastenHotKeys(Handle);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
     UnRegisterFTastenHotKeys(Handle);
end;

Sourcecode im Anhang.

Ich hoffe auf Eure Hilfe.

MfG kamel08