怎么点左键弹出右键菜单？

Question

我在窗体上放了个popmenu,怎么设置让窗体执行时！点左键出popmenu!
是把tracebutton 设置成 leftbutton吗？我试了下不行啊!"(

Answer 1

在Form的OnMouseDown事件中写代码：PopupMenu1.Popup(left+x,top+y);
大量电脑书籍下载：
http://www.netyi.net/in.asp?id=ForMoreU

Answer 2

PopupMenu1.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y);

Answer 3

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
    PopupMenu1.Popup(mouse.CursorPos.X,mouse.CursorPos.Y);
end;
//可行！

Answer 4

procedure TFrmMain.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
   var aa:TPoint;
begin
   if button= mbLeft then
begin
   if button<>MBright then
   getcursorpos(aa);
   PopupMenu1.popup(aa.x,aa.Y);
end;