如何在一个SpeedButton上用鼠标左键单击后弹出指定菜单？

Question

指定它的popupMenu可用右键弹出指定菜单，现在要改成左键，该怎么办？

Answer 1

procedure TForm1.SpeedButton1Click(Sender: TObject);
Var ix,iy:integer;
    p:TPoint;
begin
ix:=speedbutton1.left;
iy:=speedbutton1.top;
p:=speedbutton1.parent.clienttoscreen(point(ix,iy+speedbutton1.height));
popupmenu1.popup(p.x,p.y);
end;

Answer 2

To Jackie  呵呵，Parent用的很好啊！！！！！！

Answer 3

var
  pt:TPoint;
begin
  GetCursorPos(pt);
  PopupMenu.Popup(pt.X,pt.Y);
end;

Answer 4

TO: FrameSniper(框架狙击手) 
      兄弟，謝了　　^_^