|
这种方法最简单，不需要写什么程序。直将某一可视化控件的PopupMenu属性设置为一个没有菜单项的PopupMenu即可。 第二种：编写事件法 这种方法其实也很简单，比如：我们想屏蔽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] 下一页
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
