غیرفعال کردن کلیک راست

[beny]

با سلام و احترام

میخوام که روی هر editbox کلیک راست کار نکنه غیرفعال بشه بخاطر , cut past copy واینکه چطوری تو روی dbgrid کلیک راست کردم یه popup باز بشه و منو هایی که میخوام توش باشه یعنی مثل کلیک راست copy , past , cut , ... اما منوهای دلخواه خودم رو ؟


ممنون از توجه شما

[beny]

با سلام

با کد زیر مشکل popup حل شد
procedure TForm1.FormContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
MousePos := ClientToScreen(MousePos);
PopupMenu1.Popup(MousePos.X, MousePos.Y) ;

end;
اما وقتی رو editbox کلیک راست میکنم popup نمایش داده میشه و بعد از کلیک چپ منوی cut , copy , ... نمایش داده میشه چطوری میتونم غیرفعالش کنم ؟

ممنون

[beny]

با سلام و احترام

با کد زیر مشکل کلیک راست نیز مرتفع گردید
procedure TForm1.FormContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
Handled:=True;
MousePos := ClientToScreen(MousePos);
PopupMenu1.Popup(MousePos.X, MousePos.Y) ;

end;

با تشکر