Form1 in den Vordergrund bringen

[value is NULL]

Hi Leute,

Ich hab echt schon viel gegoogelt aber irgendwie komme ich nicht auf den Fehler.
Ich habe eine Formularanwendung welche sich beim minimieren ins Tray legt. Das mache ich so:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMinimize := AppMinimize;
  ShowWindow(Application.Handle, SW_HIDE);
  ShowWindow(Form1.Handle, SW_HIDE);
  form1.Hide;
end;

Mit einem Rechtsklick auf das Tray bekomme ich ein Popup in welchem ich einen Menüpunkt mit Show habe:

Delphi-Quellcode:

  ShowWindow(Application.Handle, SW_RESTORE);
  ShowWindow(Form1.Handle, SW_RESTORE);
  form1.Show;

Mit einem Doppelklick will ich das Form auch wieder anzeigen sprich in den Vordergrund bringen. Das mache ich genauso wie bei dem Rechtsklick
auf das Tray.

Mein Problem ist, das es mit dem Rechtsklick funktioniert, mit dem Doppeklick aber nicht. Er öffnet zeigt mir zwar das Form an, wenn jedoch zB Excel
gestartet ist und dieses vor dem Doppeklick fokusiert wird, ist meim Form IMMER im Hintergrund, nur nicht mit dem Rechtsklick.

Was habe ich hier falsch?

hier der Code von meinem Doppelklick:

Delphi-Quellcode:

procedure TForm1.trayDblClick(Sender: TObject);
begin
  ShowWindow(Application.Handle, SW_RESTORE);
  ShowWindow(Form1.Handle, SW_RESTORE);
  form1.Show;
end;

Habe es auch schon mit der Funktion ForceForegroundWindow(hwnd: THandle): Boolean; versucht. Da funktionierts genau 2 mal und dann lässt es sich nicht mehr minimieren :/

LG und Danke schon mal

[himitsu]

Zitat:

Form1 in den Vordergrund bringen

BringToFront?

[value is NULL]

Epic Fail!

Danke

[himitsu]

Ach ja, der Grund könnte darin liegen, daß über dieses Popupmenü dein Programm einmal den Eingabefokus bekommt oder schon hat und beim Doppelklick der Fokus bei der Traybar landet.