如何像Windows开始菜单一样，点击button弹出一个PopMenu呢？

Question

使用Tpopmenu组件。在stand面板上。

Answer 1

  在窗体上放一个POPUPMENU,设置其内容.然后在button1的单击事件里写如下代码:
var 
x,y:integer;
p:TPoint;
begin
  x:=button1.left;
  y:=button1.top+button1.height;
  p.x:=x;
  p.y:=y;
  p:=clienttoscreen(p);
  popmenu1.popup(p.x,p.y);
end;

Answer 2

在窗体上放一个POPUPMENU;
procedure TForm1.Button1Click(Sender: TObject);
var p:tpoint;
begin
 getcursorpos(p);
 popupmenu1.Popup(p.x,p.y);
end;
当然，你还可以改变 p.x, p.y 来改变popupmenu1的弹出位置。

Answer 3

多谢Appollo47,我刚好没有看到你的贴子，＾｜｜＾。
　　　　　　　　　　　　　　　　　　　　　｜