设为首页收藏本站

Delphi乐园 开发者的家园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 224|回复: 6

IntraWeb中如何屏蔽鼠标右键 [复制链接]

Rank: 4

  • TA的每日心情

    2013-8-11 10:31:01
  • 签到天数: 1 天

    [LV.1]初来乍到

    金钱
    58881
    11668
    1
    在线时间
    0 小时
    阅读权限
    10
    精华
    0
    积分
    0
    UID
    7424
    发表于 2016-9-7 20:50:54 |显示全部楼层
    分享到:
    没用过,顶一下
    本想跟月亮学一招的,哎~~~~~
    {

        函数解释:禁用右键弹出菜单

    }

    procedure TFrm_Real.ProcessMsg(var Msg:TMsg;var Handled:boolean);

    begin

        with Msg do

        if((message=WM_RBUTTONDOWN) or

          (message=WM_RBUTTONDBLCLK)) or

          (message=WM_CONTEXTMENU) then

        begin

            Handled:=true;

        end;

    end;



    Form Create事伊闼橛上:

        Application.OnMessage:=ProcessMsg;



    试用模板就可以解决问题。



    在窗体上放置TIWTemplateProcessorHTML控件,然后设置窗体的构造治理器(LayoutMgr)为刚才放TIWTemplateProcessorHTML控件,建一个html模板,在body部分加上就可以了。已经在iw9.21下测试过。

    具体的去找一下csdn中的intraweb材料吧.

    不消模板的办法(实用于ie):

    在窗体的属性Javascript中

    加如下代码

    ------------------------------

    function click1()

    {

            if(event.button==2)                                 

            {

            //  return true;

                  alert('    对不起鼠标右键已被樊篱!');   

            }

    }



    document.onmousedown=click1;

    -------------------------------------
    return   true;

    这个无效
    yqz 企业用户 

    Rank: 4

  • TA的每日心情
    擦汗
    2014-12-17 08:43:45
  • 签到天数: 17 天

    [LV.4]偶尔看看III

    金钱
    61387
    12274
    4
    在线时间
    19 小时
    阅读权限
    10
    精华
    0
    积分
    0
    UID
    2
    发表于 2016-9-7 21:01:54 |显示全部楼层
    没用过,顶一下

    使用道具 举报

    Rank: 4

    该用户从未签到

    金钱
    66600
    12512
    0
    在线时间
    626 小时
    阅读权限
    10
    精华
    0
    积分
    0
    UID
    412
    发表于 2016-9-7 21:08:55 |显示全部楼层
    本想跟月亮学一招的,哎~~~~~

    使用道具 举报

    Rank: 4

    该用户从未签到

    金钱
    60405
    11971
    0
    在线时间
    0 小时
    阅读权限
    10
    精华
    0
    积分
    0
    UID
    9
    发表于 2016-9-7 21:14:55 |显示全部楼层
    {

        函数说明:禁用右键弹出菜单

    }

    procedure TFrm_Real.ProcessMsg(var Msg:TMsg;var Handled:boolean);

    begin

        with Msg do

        if((message=WM_RBUTTONDOWN) or

          (message=WM_RBUTTONDBLCLK)) or

          (message=WM_CONTEXTMENU) then

        begin

            Handled:=true;

        end;

    end;



    Form Create事件中加上:

        Application.OnMessage:=ProcessMsg;


    使用道具 举报

    Rank: 8Rank: 8

  • TA的每日心情
    奋斗
    2014-4-23 19:02:09
  • 签到天数: 42 天

    [LV.5]常住居民I

    金钱
    67776
    13436
    0
    在线时间
    25 小时
    阅读权限
    10
    精华
    0
    积分
    0
    UID
    2050
    发表于 2016-9-7 21:17:56 |显示全部楼层
    试用模板就可以解决问题。



    在窗体上放置TIWTemplateProcessorHTML控件,然后设置窗体的布局管理器(LayoutMgr)为刚才放TIWTemplateProcessorHTML控件,建一个html模板,在body部分加上就可以了。已经在iw9.21下测试过。

    具体的去找一下csdn中的intraweb资料吧.

    使用道具 举报

    Rank: 4

    该用户从未签到

    金钱
    60405
    11971
    0
    在线时间
    0 小时
    阅读权限
    10
    精华
    0
    积分
    0
    UID
    9
    发表于 2016-9-7 21:24:56 |显示全部楼层
    不用模板的方法(适用于ie):

    在窗体的属性Javascript中

    加如下代码

    ------------------------------

    function click1()

    {

            if(event.button==2)                                 

            {

            //  return true;

                  alert('    对不起鼠标右键已被屏蔽!');   

            }

    }



    document.onmousedown=click1;

    -------------------------------------

    使用道具 举报

    Rank: 4

  • TA的每日心情
    擦汗
    2013-8-10 13:51:20
  • 签到天数: 10 天

    [LV.3]偶尔看看II

    金钱
    60395
    11991
    0
    在线时间
    1 小时
    阅读权限
    10
    精华
    0
    积分
    0
    UID
    2233
    发表于 2016-9-7 21:27:57 |显示全部楼层
    return   true;

    这个无效

    使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    delphi乐园微信公众号

    手机版|Delphi乐园 ( 冀ICP备11023363号-7 )    

    GMT+8, 2016-10-23 02:13

    Powered by Discuz! X2

    © 2001-2011 Comsenz Inc.

    公网安备 14090202000504号

    回顶部