TWebBrowser 编辑状态操作

 uses  MSHTML,ActiveX;

 

先Navigate:    

WebBrowser1.Navigate('http://localhost');

 

1. procedure TForm1.Button1Click(Sender: TObject);
2. var
3.   doc:IHTMLDocument2;
4. begin
5.  //(WebBrowser1.Document   as   IHTMLDocument2).Set_designMode('On');
6.  //(WebBrowser1.Document as IHTMLDocument2).designMode := 'On';
7.  doc := WebBrowser1.Document as IHTMLDocument2;
8.  doc.designMode := 'ON';
9. end;