Related questions
How to show a TPopupMenu when you click a TButton?
I want to show a popupmenu when click a button, but this procedure has error in Delphi XE.
procedure ShowPopupMenuEx(var mb1:TMouseButton;var X:integer;var Y:integer;var pPopUP:TPopupMenu);
var
popupPoint : TPoint;
begin
if (mb1 = mbLeft) then …