TrayIcon - PopupMenu - Problem

[moritz]

Hallo

Folgendes Problem bzw. Frage:
Wenn ich über das TrayIcon ein PopupMenu geöffnet habe, soll sich dies bei einem Klick auserhalb wieder schließen. Wie geht das?

Gruß

[Christian Seehase]

Moin Onz,

ich hab's so gelöst, dass ich das Anwendungsfenster mit SetForegroundWindow nach oben hole, bevor ich das Menü öffne:

Delphi-Quellcode:

procedure TfrmMAIN.WndProc(var msg : TMessage);
begin
  if msg.Msg = FdwTBNAMessage then begin
    case msg.LParam of
      WM_RBUTTONUP : begin
        SetForegroundWindow(self.Handle);
//...

[moritz]

Hallo

Das Programm soll sich bei mir jedoch erst öffnen, wenn man im Menu auf "Öffnen" klickt, deswegen ist das etwas umständlich.

Gruß

[Luckie]

Es öffnet sich auch nur dann, wenn man auf deinen Menüpunkt klickt. Bau es ein und probier es aus. :wink: