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