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

Question

同上

Answer 1

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;

Answer 2

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

Answer 3

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