DELPHI自带的web浏览器插件使用中发现一个问题 在使用DEELPHI自带的WEB浏览器插件,或者引入微软的IE插件在我们的窗体上。在执行浏览任务时,发现在该浏览器插件上显示的网页内容不能够正常复制、粘贴。不知原因何在? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 uses mshtml, ActiveX;procedure TForm1.FormCreate(Sender: TObject);begin WebBrowser1.Navigate('http://www.delphibbs.com');end;procedure TForm1.Button1Click(Sender: TObject);var HTMLDocument: IHTMLDocument2;begin HTMLDocument := WebBrowser1.Document as IHTMLDocument2; Memo1.Text := HTMLDocument.body.innerText; //直接把所有文本拷贝到MEMO中end;procedure TForm1.Button2Click(Sender: TObject);begin WebBrowser1.ExecWB(OLECMDID_SELECTALL, OLECMDEXECOPT_PROMPTUSER, EmptyParam, EmptyParam); //选择全部 WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_PROMPTUSER, EmptyParam, EmptyParam); //拷贝到剪贴板end; 一个interface可否从另一个interface继承而来 如何返回sqlserver 中存储过程的select的结果集 请问fastreport 怎么打印大文本? 一个关于登陆的问题 关于视图 菜鸟不知如何使用API! 如何判断一个字符串列表数组中的某一个是否已经创建? 如何关闭一正在运行的程序或进程? 我将DBList的DataSource和DataField都设好后,却没有东西出来,用其他DBComboBox等代替实验却都是好的,不是Enable的问题,请教。 有对PDF插件编程有经验的人吗> dbgrid问题 急呀。关于webbrowser控件问题
begin
WebBrowser1.Navigate('http://www.delphibbs.com');
end;procedure TForm1.Button1Click(Sender: TObject);
var
HTMLDocument: IHTMLDocument2;
begin
HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
Memo1.Text := HTMLDocument.body.innerText; //直接把所有文本拷贝到MEMO中
end;procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.ExecWB(OLECMDID_SELECTALL, OLECMDEXECOPT_PROMPTUSER, EmptyParam, EmptyParam); //选择全部
WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_PROMPTUSER, EmptyParam, EmptyParam); //拷贝到剪贴板
end;