TPopupMenu will nicht verschwinden

[phlux]

Sers!
Also folgendes Problem hab ne TrayIcon Kompo, jetz lass ich im Rechtemaustaste Event der TrayIcon Kompo mit
  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

Weiß jemand Rat wie man das beseitigen kann?

mfg phlux

[Tryer]

Schau mal nach SetCapture() und ReleaseCapture()

MfG,
Tryer

[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

Thx euch beiden!

mfg phlux