Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Create a TWebBrowser at Runtime?

Автор: Poseidon 18.5.2005, 23:21

Код

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;