[nonVCL] Trayicon mit Popupmenu schliessen

[turboPASCAL]

Zitat von Luckie:

Suche bemühen: tna popupmenü.

Suche ?

Ne, ist klar. So richtig was finden will es mir nicht.

Zitat von Vjay:

Indem du vorher deinem Hauptfenster den Fokus gibst.

Ich habe gar kein Fenster, nur ein Icon in der TNA.

//EDIT:

Natürlich habe ich ein Fenster, halt nur 0x0x0x0, dem HWND kann ich ja nun verwenden um den Focus zu setzen.

Delphi-Quellcode:

//...
   
    WM_TRAYEVENT:
      Case lParam of
        WM_RBUTTONUP:
          begin
            SetFocus(hWnd); // <---<<<
            GetCursorPos(p);
            TrackPopupMenu(hPopupMenu, TPM_RIGHTALIGN or TPM_RIGHTBUTTON,
              p.x, p.y, 0, hWnd, nil);
          end;
        WM_LBUTTONUP: //...

Ich danke euch.