Comment faire pour afficher une TPopupMenu lorsque vous cliquez sur un TButton?

Il suffit de ne

procedure TForm1.Button1Click(Sender: TObject);
var
  pnt: TPoint;
begin
  if GetCursorPos(pnt) then
    PopupMenu1.Popup(pnt.X, pnt.Y);
end;

Un peu plus de discussion

Si pour une raison besoin à utiliser OnMosuseUp, vous pouvez le faire

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  pnt: TPoint;
begin
  if (Button = mbLeft) and GetCursorPos(pnt) then
    PopupMenu1.Popup(pnt.X, pnt.Y);
end;

Votre code ne fonctionne pas car

1. ClientToScreen est une fonction de l'API Windows avec signature

   function ClientToScreen(hWnd: HWND; var lpPoint: TPoint): BOOL;

   Mais, il y a aussi un TControl.ClientToScreen avec signature

   function TControl.ClientToScreen(const Point: TPoint): TPoint;

   Donc, si vous êtes dans une méthode de classe, la classe étant un decendant de TControl, ClientToScreen va se référer à la dernière. Si non, il va se référer à l'ancien. Et ce, bien sûr, besoin de savoir qui de la fenêtre pour transformer les coordonnées de!

2. Aussi, si vous déclarez

   var mb1: TMouseButton

   en tant que paramètre, alors qu'une variable de type TMouseButton sera accepté. Mais je ne vois aucune raison pourquoi vous voulez cette signature de votre ShowPopupMenuEx fonction. En fait, je ne vois pas la nécessité d'une telle fonction à tous les...

Une Alternative

Mon code ci-dessus affichera le menu à l'aide du curseur pos. Si vous avez besoin de fixer le point par rapport à un coin de la touche, au lieu de cela, vous pouvez le faire

// Popup at the top-left pixel of the button
procedure TForm1.Button1Click(Sender: TObject);
begin
  with Button1.ClientToScreen(point(0, 0)) do
    PopupMenu1.Popup(X, Y);
end;

// Popup at the bottom-right pixel of the button
procedure TForm1.Button1Click(Sender: TObject);
begin
  with Button1.ClientToScreen(point(Button1.Width, Button1.Height)) do
    PopupMenu1.Popup(X, Y);
end;

// Popup at the bottom-left pixel of the button
procedure TForm1.Button1Click(Sender: TObject);
begin
  with Button1.ClientToScreen(point(0, Button1.Height)) do
    PopupMenu1.Popup(X, Y);
end;    

OriginalL'auteur Andreas Rejbrand