怎么实现用鼠标左键点击Speedbutton出现PopupMenu(注意我要左键不要右键)

[chengxuejun]

怎么实现用鼠标左键点击Speedbutton出现PopupMenu(注意我要左键不要右键)

[yzdiyu]

procedure TForm1.SpeedButton1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
PopupMenu1.Popup(100,100);
end;

[sysu]

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

[chechy]

这很简单，算准按钮的座标位置，然后调用popupMenu1.Popup(X,Y);

[我不懂电脑]

PopupMenu.Popup(x, y);

[mycsdnid]

在Speedbutton的onclick事件中写入：
speedbutton1.PopupMenu:=PopupMenu1;
speedbutton1.PopupMenu.Popup(鼠标位置x,y);

[mycsdnid]

即：
procedure TForm1.SpeedButton1Click(Sender: TObject);
var pt: TPoint;
begin
speedbutton1.PopupMenu:=PopupMenu1;
GetCursorPos(pt);
speedbutton1.PopupMenu.Popup(pt.x,pt.y);
end;

[82wds]

还有一人不用API的
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
point:TPoint;
begin
point.X:=mouse.CursorPos.X;
point.Y:=mouse.CursorPos.Y;
ScreenToClient(point);
PopupMenu1.Popup(point.X,point.y);
end;