Create a TWebBrowser at Runtime?

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;

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...