网站导航免费论文 原创论文 论文搜索 原创论文 网学软件 学术大家 资料中心 会员中心 问题解答 原创论文 论文素材 设计下载 最新论文 下载排行 论文上传 在线投稿 联系我们
返回网学首页
网学联系
最新论文 推荐专题 热门论文 素材专题
当前位置: 网学 > 编程文档 > DELPHI > 正文
Delphi的TWebBrowser编程综述
来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/12
下载{$ArticleTitle}原创论文样式

      var
       t:OleVariant;
      begin
       webbrowser1.Navigate(edit1.text,t,t,t,t);
      end;
      需要定义变量t(还有很多地方要用到它),很麻烦。其实我们可以用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);

      剪切、复制、粘贴、全选: 功能无须多说,需要注意的是:剪切和粘贴不仅对编辑框文字,而且对网页上的非编
                   辑框文字同样有效,用得好的话,也许可以做出功能特殊的东东。获得其命令使能状
                   态和执行命令的方法有两种(以复制为例,剪切、粘贴和全选分别将各自的关键字替
  &
  • 上一篇资讯: 使用Delphi获取系列信息
  • 网学推荐

    免费论文

    原创论文

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