...Create a TWebBrowser at Runtime?

Author: Thomas Stutz

Category: Internet / LAN

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;

 

printed from
www.swissdelphicenter.ch
developers knowledge base