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

Question

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

Answer 1

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

Answer 2

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

Answer 3

给你一段我实现的代码（已经用过）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;

Answer 4

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.菜单在按钮右边弹出。