procedure TForm1.CrtNew; begin Browser := TWebBrowser.Create(Self); TWinControl(Browser).Parent := Self; Browser.Left := 88; Browser.Top := 8; Browser.Width := ClientWidth - 96; Browser.Height := ClientHeight - 16; Browser.Navigate(FileName); end;
关于TWebBrowser.Document内存泄露问题: http://hi.baidu.com/allen_086/blog/item/7a268c022de949e109fa9308.html
如何动态创建WebBrowser: http://topic.csdn.net/t/20030116/15/1365092.html
过了N过岁月之后,动手操作,忘记了,照上面的代码写,还是没有显示出来;最后关键句:Browser.ParentWindow:=Form1.Handle;这句要放在最后,不然创建的WebBrowser不能调整大小。