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

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

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

;

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

Категории

Статьи

Советы

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