Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
KANSoftWare

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

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

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

Оформил: 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




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


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


реклама


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru

Время компиляции файла: 2024-08-19 13:29:56
2024-10-12 16:26:38/0.0037238597869873/0