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

[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 , ... نمایش داده میشه چطوری میتونم غیرفعالش کنم ؟

ممنون