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

[beny]

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

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

end;

با تشکر