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

Delphi , Интернет и Сети , Браузер

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

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

Here's the translation of the text into Russian:

Трансляция в режим редактирования для TWebBrowser:

Код, предоставленный ниже, написан на Delphi и использует библиотеку MSHTML для взаимодействия с контролем браузера Web. Свойство designMode используется для включения режима редактирования для текущего документа.

Вот разбивка того, что код делает:

1. В обработчике события WebBrowser1DocumentComplete, код получает ссылку на текущий объект браузера Web используя параметр pDisp.
2. Затем код устанавливает свойство designMode документа в 'On', что включает режим редактирования.

Обработчик события Button1Click навигирует браузер Web по конкретной ссылке (http://wp.netscape.com/assist/net_sites/example1-F.html).

Вот альтернативное решение:

Вместо установки свойства designMode в обработчике события WebBrowser1DocumentComplete, вы можете установить его перед навигацией по странице. Так вы не будете ждать, пока документ будет загружен.

Вот как можно модифицировать код:

uses
  MSHTML_TLB;

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.Navigate('http://wp.netscape.com/assist/net_sites/example1-F.html');
  (WebBrowser1.Document as IHTMLDocument2).DesignMode := 'On';
end;

Установка свойства designMode перед навигацией по странице позволяет обеспечить включение режима редактирования с начала.

В статье описывается, как использовать свойство designMode в компоненте TWebBrowser для перевода браузера в режим редактирования документа.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Браузер ::