Как перевести TWebBrowser в режим редактирования (дизайна)?

Previous  Top  Next

    
 

 

 

Code:

{

You can use the designMode property to put the Webbrowser

into a mode where you can edit the current document.

}

 

uses

MSHTML_TLB;

 

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;

const pDisp: IDispatch; var URL: OleVariant);

var

CurrentWB: IWebBrowser;

begin

CurrentWB := pDisp as IWebBrowser;

(CurrentWB.Document as IHTMLDocument2).DesignMode := 'On';

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

WebBrowser1.Navigate('http://wp.netscape.com/assist/net_sites/example1-F.html')

end;

 

 

©Drkb::03468

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php