Перевести TWebBrowser в режим редактирования

Советы » Браузер » Перевести 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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com