如何按下鼠标左键在SpeedButton上有下拉菜单?

[3homer]

如何按下鼠标左键在SpeedButton上有下拉菜单?

[liang_z]

你用TOOLBAR+TOOLBUTTON设置：
dropdownmenu := popupmenu1

[kimcom]

创建一个MainMenu.
然后设置按纽的MenuItem属性为Mainmenu的一个一级菜单就可以了。

[ChocoboY]

用popupmenu虚拟,弹出的坐标可以贴着speedbutton底端！

[安优小青和他的程序生活]

给你一段我实现的代码（已经用过）

procedure TF_main.Btn_cfgClick(Sender: TObject);
VAR LC_MOUSE:TMOUSE;
begin
LC_MOUSE :=TMOUSE.CREATE;
popupmenu1.Popup(LC_MOUSE.CursorPos.x,LC_MOUSE.CursorPos.Y);
LC_MOUSE.Free;
end;

[adailee]

procedure TFormMagazineInfo.butNewOtherClick(Sender: TObject);
var
ClientPoint,ScreenPoint:TPoint;
begin
ClientPoint.X:=(Sender as TSpeedButton).Left+(Sender as TSpeedButton).Width;
ClientPoint.Y:=(Sender as TSpeedButton).Top;
ScreenPoint:=ClientToScreen(ClientPoint);
pmNewOther.Popup(ScreenPoint.X,ScreenPoint.Y);
end;
我的代码。pmNewOther是PopMenum.菜单在按钮右边弹出。