D Dephic Unregistered / Unconfirmed GUEST, unregistred user! 2001-03-20 #2 一个比较笨的方法，希望对你有帮助： procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if button=mbLeft then begin showmessage('left'); PopupMenu1.Popup (a,b);//a,b 为显示的位置 end; end;
一个比较笨的方法，希望对你有帮助： procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if button=mbLeft then begin showmessage('left'); PopupMenu1.Popup (a,b);//a,b 为显示的位置 end; end;
