procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var pt: TPoint; begin if (Button = mbLeft) and (Shift = [ssLeft]) then begin pt := Button1.ClientToScreen(Point(X,Y)); pm.Popup(pt.X,pt.Y); end; end;
X,Y即快界菜单弹出的位置
Shift: TShiftState; X, Y: Integer);
var
pt: TPoint;
begin
if (Button = mbLeft) and (Shift = [ssLeft]) then
begin
pt := Button1.ClientToScreen(Point(X,Y));
pm.Popup(pt.X,pt.Y);
end;
end;