如何添加一个按钮，左键点击按钮后，在按钮正下方出现一个命令菜单(PopupMenu)?

Question

1.请问如何添加一个按钮,在左键点击后,在按钮正下方出现一个命令菜单?
2.如何能做到在鼠标移动到按钮后,按钮突起,平时是扁平状态?请问以上两个问题,如果不用第三方控件的话如何解决呢?
如果需要第三方控件,哪位大侠给好的建议(使用何种控件)?谢谢!

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.PopupMenu1.Popup(mouse.CursorPos.X,mouse.CursorPos.Y);
end;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
使用Additional页的SpeedButton按钮，设置Flat为True;

Answer 2

To gxgyj，感谢您给出答案，第二个问题，我试了，没有问题。
但是对于第一个问题，我是想POPMENU出现在按钮的正下方，换句话说就是Popmenu不是根据鼠标落点而定的。而是Popmenu的左右边框和按钮左右边框分别在一条直线上。(隐含还有个意思就是说,按钮和PopMenu的Width属性值是一样的,不过好像PopMenu没有这个属性)请问有啥办法吗？

Answer 3

你想要的是 toolButton ？設置 ToolButton 的屬性就可以了。

Answer 4

楼上说的没错，我要的就是toolButton效果，但是toolButton只满足了我第二个条件，第一个条件(Flat)无法满足。而且toolButton是不是只能用在toolbar里？而且不知道为啥，我放了一个toolbutton上去，Caption属性设了,但是运行时没有TEXT显示上去.

Answer 5

用win32选项卡里的toolbar工具设置toolbutton的dropdownmenu属性连接你的popumenu
把toolbar的flat设置为true

Answer 6

楼上说的没错，我要的就是toolButton效果，但是toolButton只满足了我第二个条件，第一个条件(Flat)无法满足。而且toolButton是不是只能用在toolbar里？而且不知道为啥，我放了一个toolbutton上去，Caption属性设了,但是运行时没有TEXT显示上去.
==========================
把ToolBar的ShowCaption忏悔属性设为true即可

Answer 7

1.popupmenu 你可以自定义X，Y坐标的呀
2.用SPEEDBUTTON控件
  2.1 或者自己绘制BUTTON