超级简单问题.怎样左键单击按钮在按钮处弹出.弹出菜单.

Question

超级简单问题.怎样左键单击按钮在按钮处弹出.弹出菜单.
另外.左键单击是onclick
右键那?双击那?麻烦解释一下.

Answer 1

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button= mbLeft then
begin
//得到鼠标位置
//GetCursorPos(pt);
//弹出菜单
//PopupMenu1.Popup(pt.X,pt.Y); 和下面那个比较一下
PopupMenu1.Popup(left+x,top+y);
end; 

Answer 2

var
Pt:TPoint;
          
GetCursorPos(Pt);
PopupMenu1.Popup(Pt.X,Pt.Y);