怎样获取按钮的坐标

Question

目的效果是左键点击图形按钮出现下拉菜单。pupmemuprocedure TFrmSpxx.SpeedButton9Click(Sender: TObject);
begin
SpeedButton9.PopupMenu.Popup({这里需要获得这个SpeedButton9的坐标});
end;这个坐标函数怎样写啊

Answer 1

图形按钮 没有一个PopupMenu属性？指定下弹出菜单不就行了？

Answer 2

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  Apoint:TPoint;
begin
  APoint:=TSpeedButton(Sender).ClientToScreen(Point(0,TSpeedButton(Sender).ClientHeight));
  PopupMenu1.Popup(Apoint.X,Apoint.Y);
end;

Answer 3

LZ是不是想实现  这种效果 点击下拉 弹出popmenue可以通过toolbar 的添加button修改style为tbsDropDown

Answer 4

delphi自带控件里没有把toolbutton放出来，不过rz 放出来了，可以单独使用rztoolbutton 不过 我想toolbar就够了，效果又好使用又方便