还是小问题：点击按钮后，如何使POP菜单显示在此按钮下方（请附代码），即解即送分！

[lxftwo]

同上

[楚人无衣]

pm: TPopupMenu;
...
procedure TForm1.Button1Click(Sender: TObject);
var
sp: TPoint;
begin
sp.X := Button1.left;
sp.Y := Button1.Top + Button1.Height;
pm.Popup(ClientToScreen(sp).X, ClientToScreen(sp).Y);
end;

• 打赏
• 举报

回复 赞

[yimoo]

简单一点的方法！
把这个Button换成Toolbar上的ToolButton，然后设置它的DropdownMenu为Popmenu，就结束了！没有一行代码！

• 打赏
• 举报

回复 赞

[wenjianyao]

一楼的就很好

• 打赏
• 举报

回复 赞

[alinsoft]

不知道楼主是不是想要FOXMAIL工具栏里的按钮那样的效果？
我觉得那个效果不错，但不知道那个按钮边上的小三角型是怎么处理的，这样提示用户是个有下拉框的按钮，感觉更专业些。

• 打赏
• 举报

回复 赞

[lxftwo]

不行，还是显示在窗口的上面？！

• 打赏
• 举报

回复 赞