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.
