Create a TWebBrowser at Runtime?

Previous  Top  Next

    
 

 

 

Code:

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;

 

©Drkb::03460

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