如何屏蔽控件的默认右键菜单
来源:互联网 发布:淘宝退货影响二次销售 编辑:程序博客网 时间:2024/06/05 02:46
转自:http://www.delphichm.com/html/Image/20070629/220.html
在很多情况下我们也许想把某些控件的默认右键菜单屏蔽掉。
屏蔽控件右键菜单有很多种方法,现在就介绍我知道的其中四种。
在介绍之前,先让我们看一下下面这段代码,这段代码是VCL库中TControl对象的一段代码,
从这段代码我们可以看出右键菜单的弹出事件都写在弹出菜单消息里面。
private
procedure WMContextMenu(var Message: TWMContextMenu); message WM_CONTEXTMENU;
…
procedure TControl.WMContextMenu(var Message: TWMContextMenu);
var
Pt, Temp: TPoint;
Handled: Boolean;
PopupMenu: TPopupMenu;
begin
if Message.Result <> 0 then Exit;
if csDesigning in ComponentState then Exit;
Pt := SmallPointToPoint(Message.Pos);
if Pt.X < 0 then
Temp := Pt
else
begin
Temp := ScreenToClient(Pt);
if not PtInRect(ClientRect, Temp) then
begin
inherited;
Exit;
end;
end;
Handled := False;
{* 调用OnContextPopup}
DoContextPopup(Temp, Handled);
Message.Result := Ord(Handled);
if Handled then Exit;
PopupMenu := GetPopupMenu;
{* 弹出自定义菜单}
if (PopupMenu <> nil) and PopupMenu.AutoPopup then
begin
SendCancelMode(nil);
PopupMenu.PopupComponent := Self;
if Pt.X < 0 then
Pt := ClientToScreen(Point(0,0));
PopupMenu.Popup(Pt.X, Pt.Y);
Message.Result := 1;
end;
if Message.Result = 0 then
{* 继承Windows右键菜单}
inherited;
end;
下面介绍屏蔽右键菜单的几种常用的方法
第一种:绑定菜单法:
这种方法最简单,不需要写什么程序。直将某一可视化控件的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
TOSPEdit = class(TEdit)
public
procedure WMRBUTTONDOWN(Var Msg: TMsg); Message WM_RBUTTONDOWN;
end;
procedure TOSPEdit.WMRBUTTONDOWN(Var Msg: TMsg);
begin
//
end;
屏蔽控件右键菜单有很多种方法,现在就介绍我知道的其中四种。
在介绍之前,先让我们看一下下面这段代码,这段代码是VCL库中TControl对象的一段代码,
从这段代码我们可以看出右键菜单的弹出事件都写在弹出菜单消息里面。
private
procedure WMContextMenu(var Message: TWMContextMenu); message WM_CONTEXTMENU;
…
procedure TControl.WMContextMenu(var Message: TWMContextMenu);
var
Pt, Temp: TPoint;
Handled: Boolean;
PopupMenu: TPopupMenu;
begin
if Message.Result <> 0 then Exit;
if csDesigning in ComponentState then Exit;
Pt := SmallPointToPoint(Message.Pos);
if Pt.X < 0 then
Temp := Pt
else
begin
Temp := ScreenToClient(Pt);
if not PtInRect(ClientRect, Temp) then
begin
inherited;
Exit;
end;
end;
Handled := False;
{* 调用OnContextPopup}
DoContextPopup(Temp, Handled);
Message.Result := Ord(Handled);
if Handled then Exit;
PopupMenu := GetPopupMenu;
{* 弹出自定义菜单}
if (PopupMenu <> nil) and PopupMenu.AutoPopup then
begin
SendCancelMode(nil);
PopupMenu.PopupComponent := Self;
if Pt.X < 0 then
Pt := ClientToScreen(Point(0,0));
PopupMenu.Popup(Pt.X, Pt.Y);
Message.Result := 1;
end;
if Message.Result = 0 then
{* 继承Windows右键菜单}
inherited;
end;
下面介绍屏蔽右键菜单的几种常用的方法
第一种:绑定菜单法:
这种方法最简单,不需要写什么程序。直将某一可视化控件的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
TOSPEdit = class(TEdit)
public
procedure WMRBUTTONDOWN(Var Msg: TMsg); Message WM_RBUTTONDOWN;
end;
procedure TOSPEdit.WMRBUTTONDOWN(Var Msg: TMsg);
begin
//
end;
- 如何屏蔽控件的默认右键菜单
- 如何屏蔽控件的默认右键菜单
- 如何屏蔽控件的默认右键菜单
- 如何屏蔽Real控件的右键菜单??
- Flex屏蔽默认右键菜单。
- javascript自定义右键菜单并屏蔽默认右键菜单【原创】
- javascript自定义右键菜单并屏蔽默认右键菜单【原创】
- 如何屏蔽iframe中内容的右键菜单
- VC屏蔽WebBrower控件右键菜单
- js实现浏览器右键菜单,屏蔽默认菜单
- Eclipse RCP编辑器右键菜单与默认可拖动属性的屏蔽方法
- Eclipse RCP中编辑器右键菜单与默认可拖动属性的屏蔽方法
- js屏蔽鼠标右键默认事件以实现自定义菜单
- VB Webbrowser控件如何屏蔽右键
- VB:屏蔽IE的右键菜单
- 屏蔽右键菜单的几个方法
- 屏蔽右键菜单查看源代码的JS
- 网站页面屏蔽右键菜单的做法
- ajax 发布web 服务 未能加载类型的解决办法
- 使用CASTLE.ActiveRecord的注意事项之一:总览
- 用PHP开始你的MVC (一)整合你的站点入口
- 外贸7日通-外贸流程详解 第六天
- mysql 实现 mssql exec 动态查询语句
- 如何屏蔽控件的默认右键菜单
- 外贸7日通-外贸流程详解 第七天
- NET WEAVER 安装中密码
- IpAddress算法
- NPort5410 NP5410 4-Port RS232串口设备联网服务器
- 固态继电器的应用浅析
- 打开CDROM AutoRun之要点
- ASP.NET中上传并读取Excel文件数据,附后生成EXCEL及杀掉EXCEL进程
- AxMediaPlay的开发(简易媒体播放器)