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

{
 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;

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

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...