Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Erkennen, wenn ein TPopupmenu verschwindet

    Delphi
    by Bora4d, 8. Okt 2006
  Ich habe in einer meiner Komponenten das verwendet:
  
  procedure TForm1.PopUpMyDropDownMenu;
  var atp:TPoint; Msg:TMsg;
  begin
  atp := ClientToScreen(Point(0, Height));
  MyDropDownMenu.Popup(atp.x,atp.y);
  while PeekMessage(Msg, 0, WM_MOUSEFIRST, WM_MOUSELAST, PM_REMOVE) do; //warten damit falls nicht in menü sondern in irgend andere Control geklickt wird, unten gedrückt wieder entfernt...