给你发个实例:
procedure TForm1.Button1Click(Sender: TObject);
var P: TPoint;
begin
GetCursorPos(P);
PopupMenu1.Popup(P.X, P.Y)
end;
procedure TForm1.Button1Click(Sender: TObject);
var P: TPoint;
begin
GetCursorPos(P);
PopupMenu1.Popup(P.X, P.Y)
end;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
p:TPoint;
begin
if Button=mbLeft then
begin
GetCursorPos(p);
PopupMenu1.Popup(p.x,p.y);
end;
end;