Delphi中如何屏蔽右键?

Question

请问在用Delphi开发的程序中如何屏蔽右键?

Answer 1

//参考如下代码～～
procedure TForm1.FormContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
  Handled := True;
end;

Answer 2

最简单的办法：
在窗体上放一个PopupMenu1什么也不做，然后把所以控件的PopupMenu属性设置为PopupMenu1。嘿嘿，曾经用过。

Answer 3

屏蔽右键可以这样来做 添加一个TApplicationEvents 控件
然后在Message时间里写下如下代码:
if  Msg.message  = WM_RBUTTONDOWN  then begin
       Handled  :=  True;
    end;

Answer 4

beyondsun 的方法只能屏蔽窗体的菜单；
activex控件的菜单不能屏蔽