Создать TWebBrowser во время выполнения программы

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

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

procedure TForm1.Button1Click(Sender: TObject);
 var
  wb: TWebBrowser;
 begin
   wb := TWebBrowser.Create(Form1);
   TWinControl(wb).Name := 'MyWebBrowser';
   TWinControl(wb).Parent := Form1;
   wb.Align := alClient;
   // TWinControl(wb).Parent := TabSheet1; ( To put it on a TabSheet ) 
  wb.Navigate('http://www.swissdelphicenter.ch');
 end;

Here's the translation of the code into Russian:

procedure TForm1.Button1Click(Sender: TObject);
var
  wb: TWebBrowser;
begin
   // Создаем новый экземпляр TWebBrowser на этапе выполнения
  wb := TWebBrowser.Create(nil);

  try
     // Устанавливаем имя и родительский контроллер веб-браузера
    TWinControl(wb).Name := 'Мой веб-браузер';
    TWinControl(wb).Parent := Form1;

     // Выравниваем веб-браузер, чтобы он занимал всю форму
    wb.Align := alClient;

     // Переходим к конкретной URL с помощью метода Load()
    wb.Navigate('http://www.swissdelphicenter.ch');

  finally
     // Освобождаем память, используемую экземпляром TWebBrowser
    wb.Free;
  end;
end;

В этом коде:

• Создается экземпляр TWebBrowser на этапе выполнения с помощью wb := TWebBrowser.Create(nil).
• Имя и родительский контроллер веб-браузера устанавливаются с помощью свойств Name и Parent.
• Веб-браузер выравнивается, чтобы он занимал всю форму, с помощью свойства Align.
• Веб-браузер переходит к конкретной URL с помощью метода Navigate().

Код также включает в себя блок try...finally, который обеспечивает освобождение памяти, используемой экземпляром TWebBrowser, когда он больше не нужен,regardless of whether an exception occurs or not. Это хорошая практика объектно-ориентированного программирования для предотвращения утечек памяти.

Обратите внимание: в Delphi 2009 и более поздних версиях можно использовать синтаксис TWebBrowser.Create(Self) вместо TWebBrowser.Create(nil), который создает новый экземпляр TWebBrowser с формой как родителем.

В статье описывается создание объекта TWebBrowser в динамике программы Delphi, используя процедуру TForm1.Button1Click.

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

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

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