L laohe Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-21 #3 我已试用popmenu了,但没有反应 在RichEdit没有反应所以我才请高手相助
N Nstar Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-21 #4 procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var p:TPoint; begin GetCursorPos(p); popupmenu1.Popup(p.x,p.y); end;
procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var p:TPoint; begin GetCursorPos(p); popupmenu1.Popup(p.x,p.y); end;