S shell~ Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-01 #1 我现在想实现一个左键点击按钮，实现弹出菜单，就像WIN中开始菜单那种，很急！！！！！谢谢谢！！
H hjw007 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-01 #2 popupmenu2.Popup(bitbtn2.ClientOrigin.x,bitbtn2.ClientOrigin.Y+bitbtn2.Height);
P pengjinlongex Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-01 #3 popmenu1.popmenu(...)
Z zw84611 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-01 #5 向上和向下跟鼠标在窗体中的位置有关。 procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin popupmenu1.Popup(left+x,top+y-20); end;
向上和向下跟鼠标在窗体中的位置有关。 procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin popupmenu1.Popup(left+x,top+y-20); end;
J jsxjd Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-01 #6 点击 form 中的 Button1 ，达到 点击 "开始"按钮的效果： 在 Button1 的 OnClick 事件中进行如下处理： procedure TForm1.Button1Click(Sender: TObject); var p:TPoint; begin p:=clienttoScreen(Point(button1.left,button1.top)); TrackPopupMenu(popupmenu1.Handle,$20,p.x,p.y,0,handle,nil); end;
点击 form 中的 Button1 ，达到 点击 "开始"按钮的效果： 在 Button1 的 OnClick 事件中进行如下处理： procedure TForm1.Button1Click(Sender: TObject); var p:TPoint; begin p:=clienttoScreen(Point(button1.left,button1.top)); TrackPopupMenu(popupmenu1.Handle,$20,p.x,p.y,0,handle,nil); end;
