如何在BUTTON中设计左键下拉菜单？

Question

思想:
先做一个popmenu菜单,设计Button的Click事件
begin
  获取鼠标点击的屏幕坐标(X,Y:integer)
  PopupMenu.Popup(X,Y);
end;

Answer 1

放一个PopupMenu,在button的OnMouseDown事件写下如下代码：procedure TForm1.BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
     if Button = mbLeft then
        PopuPmenu1.Popup(mouse.cursorpos.x,mouse.cursorpos.y);end;

Answer 2

用speed button就可以了
设置一下属性
先做一个popmenu菜单

Answer 3

用speed button就可以了
设置一下属性
先做一个popmenu菜单

Answer 4

用控件吧，随便down一个控件就搞定了，还稳定，界面作出来绝对一流。我有Rx,RZ,想要Emailq我： [email protected]