第二种：编写事件法

  这种方法其实也很简单，比如：我们想屏蔽Edit1控件的右键菜单，我们可以在OnContextPopup

事件中实现。

代码如下：

procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint;

  var Handled: Boolean);

begin

  Handled := True;

end;

  为什么是设置成True呢，从VCL库中的源代码可以看出，当为True时就会跳出执行下面自定义弹

出菜单及默认Windows右键菜单的代码。

  但有时控件并没有提供OnContextPopup事件，比如：TMaskEdit控件，怎么办呢，我们知道TMaskEdit控件和TEdit控件都是TControls控件的派生类，所以我们可以用如下方法实现。

代码如下：

private

  procedure NoneContextPopup(Sender: TObject; MousePos: TPoint; var Handled:

      Boolean);

...

procedure TForm1.NoneContextPopup(Sender: TObject; MousePos: TPoint; var

    Handled: Boolean);

begin

  Handled := True;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

  TEdit(MaskEdit1).OnContextPopup := NoneContextPopup;

end;

第三种:拦截系统消息法:

    有时我们用以上介绍的两种方法是无济于事，这时就可以通过拦截系统消息法，我们通过判断控件的句柄，从而达到屏蔽控件的右键菜单。

代码如下：

private

  procedure MouseRightMessage(var Msg: TMsg; var Handled: Boolean);

...

procedure TForm1.MouseRightMessage(var Msg: TMsg; var Handled: Boolean);

begin

  if (Msg.Message = WM_RBUTTONDOWN) and (Msg.hwnd = Edit1.Handle) then

  begin

    Handled := True;

  end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

  Application.OnMessage := MouseRightMessage;

end;

第四种：拦截控件的右键消息法：

    但有时我们又想把某控件的右键菜单永远隐藏掉，这时我们可以通过以下方法实现。

代码如下：

type

上一页  [1] [2] [3]  下一页