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:// Kingron.Delphibbs.com ');

end;