网站导航免费论文 原创论文 论文搜索 原创论文 网学软件 学术大家 资料中心 会员中心 问题解答 原创论文 论文素材 设计下载 最新论文 下载排行 论文上传 在线投稿 联系我们
返回网学首页
网学联系
最新论文 推荐专题 热门论文 素材专题
当前位置: 网学 > 编程文档 > DELPHI > 正文
WebBrower控件接口表
来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/12
下载{$ArticleTitle}原创论文样式
用到它),很麻烦。其实我们可以用EmptyParam来代替(EmptyParam是一个公用的Variant空变量,不要对它赋值),只需一句话就可以了:
     webbrowser1.Navigate(edit1.text,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
     虽然长一点,但比每次都定义变量方便得多。当然,也可以使用第一种方式。
     webbrowser1.Navigate(edit1.text)
   -----------------------------------------------------------------------------------
   3、命令操作   常用的命令操作用ExecWB方法即可完成,ExecWB同样多次被重载:
     procedure ExecWB(cmdID: OLECMDID; cmdexecopt:
   OLECMDEXECOPT); overload;
     procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT;
   var pvaIn:
       OleVariant); overload;
     procedure ExecWB(cmdID: rOLECMDID; cmdexecopt:
   OLECMDEXECOPT; var pvaIn:
       OleVariant; var pvaOut: OleVariant); overload;
     打开: 弹出“打开Internet地址”对话框,CommandID为OLECMDID_OPEN(若浏览器版本为IE5.0,
         则此命令不可用)。
     另存为:调用“另存为”对话框。
         ExecWB(OLECMDID_SAVEAS,OLECMDEXECOPT_DODEFAULT,
   EmptyParam,
              EmptyParam);
  
  
     打印、打印预览和页面设置: 调用“打印”、“打印预览”和“页面设置”对话框(IE5.5及以上版本才支持打
                   印预览,故实现应该检查此命令是否可用)。
         ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT,
   EmptyParam,
              EmptyParam);
         if QueryStatusWB(OLECMDID_PRINTPREVIEW)=3 then
          ExecWB(OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT,
              EmptyParam,EmptyParam);
         ExecWB(OLECMDID_PAGESETUP, OLECMDEXECOPT_DODEFAULT,
   EmptyParam,
              EmptyParam);
  
  
     剪切、复制、粘贴、全选: 功能无须多说,需要注意的是:剪切和粘贴不仅对编辑框文字,而且对网页上的非编
                  辑框文字同样有效,用得好的话,也许可以做出功能特殊的东东。获得其命令使能状
                  态和执行命令的方法有两种(以复制为例,剪切、粘贴和全选分别将各自的关键字替
                  换即可,分别为CUT,PASTE和SELECTALL):
      A、用TWebBrowser的QueryStatusWB方法。
        if(QueryStatusWB(OLECMDID_COPY)=OLECMDF_ENABLED) or
         OLECMDF_SUPPORTED) then
         ExecWB(OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT,
   EmptyParam,
              EmptyParam);
      B、用IHTMLDocument2的QueryCommandEnabled方法。
        var
         Doc: IHTMLDocument2;
        begin
         Doc :=WebBrowser1.Document as IHTMLDocument2;
         if Doc.QueryCommandEnabled(''Copy'') then
          Doc.ExecCommand(''Copy'',false,EmptyParam);
        end;
     查找: 参考第九条“查找”功能。
   -----------------------------------------------------------------------------------
   4、字体大小
     类似“字体”菜单上的从“最
  • 下一篇资讯: 保存页面为MHT的代码
  • 网学推荐

    免费论文

    原创论文

    浏览:
    设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
    版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
    湘ICP备09003080号