首页 > Web开发 > 详细

Delphi中禁止WebBrowser右键的方法

时间:2014-01-16 00:07:55      阅读:431      评论:0      收藏:0      [点我收藏+]
bubuko.com,布布扣
 1 uses MSHtml;
 2 
 3 
 4 
 5 //在控件标签additional中找到TApplicationEvents控件,拖到窗体上.在TApplicationEvents的OnMessage事件中加入以下代码:
 6 
 7 //替换右键菜单
 8 
 9 
10 
11 procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
12 
13 var
14 
15 mPoint: TPoint;
16 
17 begin
18 
19 if IsChild(WebBrowser.Handle, Msg.Hwnd) and
20 
21 ((Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP)) then
22 
23 begin
24 
25 GetCursorPos(mPoint); //得到光标位置
26 
27 pm5.Popup(mPoint.X, mPoint.Y); //弹出popupmenu1的菜单
28 
29 Handled := True;
30 
31 end;
32 
33 end;
34 
35 
36 
37 或者
38 
39 //屏蔽右键菜单
40 
41 
42 
43 procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
44 
45 begin
46 
47 with Msg do
48 
49 begin
50 
51 if not IsChild(WebBrowser1.Handle, hWnd) Exit;
52 
53 Handled := (message = WM_RBUTTONDOWN) or (message = WM_RBUTTONUP) or (message = WM_CONTEXTMENU);
54 
55 end;
56 
57 end;
bubuko.com,布布扣

Delphi中禁止WebBrowser右键的方法

原文:http://www.cnblogs.com/luwenbin/p/3516644.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!