TTrayIcon: PopUp-Menü bei keiner Auswahl ausblenden

[Helmi]

Hallo,

ich habe ein Programm mit einem TTrayIcon das ein PopUp-Menü aufruft.
Soweit funktioniert alles ganz normal.

Nur kenn ich das von anderen Programmen mit TrayIcons und PopUp-Menü, dass das PopUp-Menü verschwindet, wenn man es zwar öffnet, aber nichts auswählt und dann in die Taskleiste klickt.
(z. B. beim Outlook-Icon).

Wie kann ich das bei mir mit dem TTrayIcon realisieren?

[Aviator]

Das sollte eigentlich Standard sein. Zumindest bei mir funktioniert das ohne irgend ein Zutun. :shock:

[Helmi]

mmh - ich hätt doch zuerst das Ganze noch in einem Testprogramm testen sollen

Jedenfalls in nem Testprogramm funktioniert es.

In meinem eigentlichen Programm blende ich bei Programmstart die MainForm hiermit aus:

Delphi-Quellcode:

  Hide;
  WindowState := wsMinimized;

Und dieser Code ausgeführt und schon funktionierts nicht mehr.
Mein Programm hat eigentlich keine MainForm - nur das PopUp

[EWeiss]

Du möchtest das Popup Menu schließen? wenn du nichts auswählst.
Ich habe das so gelöst.
Bei dir könnte es aber das Problem geben das ein PopUpMenu kein Fensterhandle hat.

Delphi-Quellcode:

var
 gP.ProgManHandle := FindWindow('Progman', 'Program Manager');
........
    WM_TIMER:
      begin
        if wP = POPUP_TIMER then
        begin
          gP.FocusHandle := GetForegroundWindow;
          if gP.FocusHandle = gP.ProgManHandle then
          begin
            if SkinEngine.IsLButtonDown then
            begin
              KillTimer(WinHandle, POPUP_TIMER);
              ShowWindow(WinHandle, SW_HIDE);
              if Assigned(SkinPopUpMenu) then
              begin
                gP.DlgItem := 0;
                SkinPopUpMenu.DestroyWindow;
              end;
            end;
          end;
        end;
      end;

gruss

[Helmi]

Das Problem ist, dass ich meine MainForm ausblende (weder Fenster noch Taskbar-Button sichtbar) und somit der Fokus (wie ich es denke) nicht mehr an die MainForm übergehen kann.

[Headbucket]

Ich habe in einem aktuellen Projekt die selben Anforderungen wie du. Kein MainForm und ein TrayIcon mit PopUp-Menü. Bei mir funktioniert das Ausblenden bei keiner Auswahl jedoch.

Ich habe das Ausblenden der MainForm direkt beim Programmstart in der Projektdatei realisiert:

Delphi-Quellcode:

Application.ShowMainForm := false;

Vllt macht das den kleinen aber feinen Unterschied?

Du meintest ja, dass es in einem Testprojekt geht. Du kannst ja dein Testprojekt mal soweit ausbauen, dass du auch dort das MainForm ausblendest.

Grüße
Headbucket

[Helmi]

Hallo,

Delphi-Quellcode:

Application.ShowMainForm := false;

ergibt leider das gleiche Ergebnis.
Das PopUp-Menü bleibt da (nur die Taskleiste kommt nach vorne)