delphi WebBrowser全选\复制\粘贴
uses DateUtils,ActiveX,ComObj,msHtml;
WebBrowser.ExecWB(1,1) 打开
WebBrowser.ExecWB(2,1) 关闭现在所有的IE窗口，并打开一个
新窗口
WebBrowser.ExecWB(4,1) 保存网页
WebBrowser.ExecWB(6,1) 打印
WebBrowser.ExecWB(7,1) 打印预览
WebBrowser.ExecWB(8,1) 打印页面设置
WebBrowser.ExecWB(10,1) 查看页面属性
WebBrowser.ExecWB(13,1) 撤销，原来是(15,1),测试出错
WebBrowser.ExecWB(17,1) 全选
WebBrowser.ExecWB(22,1) 刷新
WebBrowser.ExecWB(12,1) 复制
WebBrowser.ExecWB(45,1) 关闭窗体无提示
WebBrowser1.Document.body.Focus
WebBrowser1.ExecWB 17, 1 '全选
WebBrowser1.ExecWB 12, 1 '复制
WebBrowser1.ExecWB 13, 1 '撤销
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.1650710105896 seconds