本文整理自网络,侵删。
代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, OleCtrls, SHDocVw;type TForm1 = class(TForm) WebBrowser1: TWebBrowser; Panel1: TPanel; Button1: TButton; CheckBox1: TCheckBox; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure CheckBox1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);begin Panel1.Align:= alTop; CheckBox1.Anchors := [akTop,akRight]; Button1.Anchors := CheckBox1.Anchors; CheckBox1.Caption := '编辑'; Button1.Caption := '显示网页文本'; WebBrowser1.Align := alClient; WebBrowser1.Navigate('http://www.180it.com');end;procedure TForm1.Button1Click(Sender: TObject);begin ShowMessage(WebBrowser1.OleObject.document.body.innerText);end;procedure TForm1.CheckBox1Click(Sender: TObject);begin WebBrowser1.OleObject.document.body.contentEditable := CheckBox1.Checked;end;end.
相关阅读 >>
Delphi decodedate、decodetime ... decodedatetime ... 分解时间
更多相关阅读请进入《Delphi》频道 >>