Delphi中使用TWebBrowser编辑网页

Delphi中使用TWebBrowser编辑网页2012-01-11 博客园万一本例效果图:

代码文件:

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, OleCtrls, SHDocVw, StdCtrls, ExtCtrls;

type
 TForm1 = class（TForm）
  WebBrowser1: TWebBrowser;
  Panel1: TPanel;
  Button1: TButton;
  CheckBox1: TCheckBox;
  procedure FormCreate（Sender: TObject）;
  procedure CheckBox1Click（Sender: TObject）;
  procedure Button1Click（Sender: TObject）;
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

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;
 {有些浏览器需要这样设置: document.designMode = "On";}
end;

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.cnblogs.com/del/archive/2009/04/16/1437417.html"）;
end;

end.