C Croba Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-01 #1 怎样click一个Button时，在其位置弹出一个选择菜单? 弹出位置要在Mouse点出击处.
P pt_email Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-01 #2 在form上扔一个PopupMenu，然后在Button的Click里： procedure TForm1.Button1Click(Sender: TObject); var p: TPoint; begin GetCursorPos(p); //取得当前鼠标位置 PopupMenu1.Popup(p.x,p.y); end;
在form上扔一个PopupMenu，然后在Button的Click里： procedure TForm1.Button1Click(Sender: TObject); var p: TPoint; begin GetCursorPos(p); //取得当前鼠标位置 PopupMenu1.Popup(p.x,p.y); end;
K KeepObject Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-01 #4 当要左单击一个按钮时弹出菜单的功能，可使用以下方法。 //在Button的Click事件中写 var Pos:TPoint; begin GetCursorPos(Pos); //取左单击弹出右单击菜单的位置 PopupMenu1.Popup(Pos.X,Pos.Y); end;
当要左单击一个按钮时弹出菜单的功能，可使用以下方法。 //在Button的Click事件中写 var Pos:TPoint; begin GetCursorPos(Pos); //取左单击弹出右单击菜单的位置 PopupMenu1.Popup(Pos.X,Pos.Y); end;
W wanyh Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-01 #6 procedure TBaseRecSDIFrm.BitBtn2Click(Sender: TObject); begin PopupMenu1.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y); end;
procedure TBaseRecSDIFrm.BitBtn2Click(Sender: TObject); begin PopupMenu1.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y); end;
