TPopupMenu will nicht verschwinden

[phlux]

Sers! :hi:
Also folgendes Problem hab ne TrayIcon Kompo, jetz lass ich im Rechtemaustaste Event der TrayIcon Kompo mit

Delphi-Quellcode:

  PopUpMenu.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);

das PopupMenu aufpoppen. Wenn ich jetzt allerdings irgendwo willkürlich auf dem Desktop hinklicke erwartet man ja das sich das Popupmenu von alleine schließt. Macht es aber nicht :kotz:

Weiß jemand Rat wie man das beseitigen kann?

mfg phlux :hi:

[Tryer]

Schau mal nach SetCapture() und ReleaseCapture()

MfG,
Tryer :coder:

[Luckie]

Nope. Das ist es nicht.

Code:

procedure TForm1.WndProc(var Msg: TMessage);
var
  Point: TPoint;
begin
  if Msg.Msg = WM_USER + 20 then
  begin
    case Msg.lParam of
      WM_RBUTTONDOWN:
        begin
          [color=red]SetForegroundWindow(Handle);[/color]
          GetCursorPos(Point);
          PopUpMenu1.PopUp(Point.X, Point.Y);
        end;
      WM_LBUTTONDOWN:
        begin
          //ShowMessage('links runter');
        end;
      WM_LBUTTONDBLCLK:
        begin
          Form1.Show;
          // Icon nur anzeigen wenn Fenster minimiert
          Shell_NotifyIcon(NIM_DELETE, @IconData);
        end;
    end;
  end;
  inherited;
end;

Die rote Zeile, ist die entscheidenden. ;)

[phlux]

Dankeee Luckie :) jetzt verschwindet es auch so wie es sollte :hello:

Thx euch beiden!

mfg phlux :hi: