WebBrowser实现编辑网页

//1.显示网页
procedure TForm2.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;

//2.编辑网页
procedure TForm2.CheckBox1Click(Sender: TObject);
begin
　{这里是让整个页面可编辑,　也可以单独编辑某个元素}
　WebBrowser1.OleObject.document.body.contentEditable　:=　CheckBox1.Checked;
　{有些浏览器需要这样设置:　document.designMode　=　"On";}
end;

//3.显示网页文本
procedure TForm2.Button1Click(Sender: TObject);
begin
  ShowMessage(WebBrowser1.OleObject.document.body.innerText);
end;