[nonVCL] Trayicon mit Popupmenu schliessen

[turboPASCAL]

Hi,

Ich habe eine NonVCL-Anwendung mit einem Trayicon in der TNA mit einem Popupmenu. Soweit ist alles ok aber wenn das Menu aktiviert wurde (rechte Maustaste), ich aber neben das Menu klicke bleibt dieses erhalten/offen.

Wie kann ich das ändern ?

[Vjay]

Indem du vorher deinem Hauptfenster den Fokus gibst.

[Luckie]

Suche bemühen: tna popupmenü.

[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.

[Luckie]

Jepp. Die Suche. Fünfte Ergebnis von oben, da wird es erwähnt, was man machen muss. Und da der Thread sogar den Titel "Problem mit TNA-Popupmenü..." trägt, muss ich dir recht geben, da guckt man natürlich nicht rein.

Und wie reagierst du auf Nachrichten? Bzw. wie bekommst du das Icon in die TNA? Mir ist keine Möglichkeit bekannt ohne die Nachrichtenschleife und ohne die Fensterprozedur eines Fensters auf Nachrichten zu reagieren.

[turboPASCAL]

Zitat von Luckie:

Jepp. Die Suche. Fünfte Ergebnis von oben, da wird es erwähnt, was man machen muss. Und da der Thread sogar den Titel "Problem mit TNA-Popupmenü..." trägt, muss ich dir recht geben, da guckt man natürlich nicht rein.

Und wie reagierst du auf Nachrichten? Bzw. wie bekommst du das Icon in die TNA? Mir ist keine Möglichkeit bekannt ohne die Nachrichtenschleife und ohne die Fensterprozedur eines Fensters auf Nachrichten zu reagieren.

Jaja, Asche auf mein Haupt. Auch suchen will gelernt sein. ( aber ich hatte bei tna popupmenü nur vier Ergebnisse )