M
macrolen
Unregistered / Unconfirmed
GUEST, unregistred user!
//重新创建窗体procedure TFMain.NewWeb(Index_: Integer; Url: string; Sender: TWinControl);begin FormWebBrowser := TFormWebBrowser.Create(Self); FormWebBrowser.Parent := Sender; FormWebBrowser.Web.Navigate(Url); FormWebBrowser.Show; PageControlEx.ActivePageIndex := Index_;end;//最小化后释放窗体procedure TFMain.RzTrayIconMinimizeApp(Sender: TObject);var i:integer;begin for i:=FMain.ComponentCount-1 downto 0 do begin if (FMain.components is TFormWebBrowser) then FMain.components.Free; end;end;//窗体恢复的代码procedure TFMain.RestoreAppClick(Sender: TObject);begin NewWeb(0, Url, Page1); RzTrayIcon.RestoreApp;end;/////////////////////////////////////////////////////////////////////////////////动态创建的FormWebBrowser窗体中有个Webbrowser，也是动态创建的：procedure TFormWebBrowser.FormCreate(Sender: TObject);begin try Web := TWebBrowser.Create(nil); Web.Align := alClient; finally TControl(Web).Parent := Self; end;end;我用上面的方法动态创建窗体到主窗体的PageControl各个页上(PageControl上个各页是事先设好的)，点击不同的按钮就创建个FormWebBrowser到一个页上。当程序最小化到托盘时释放掉他们，当主程序恢复时再重新创建。问题是频繁创建释放后有时候程序最小化后点击托盘图标想恢复时会出现错误：Access violation at address 6F206461...，有时又不会出现，是什么问题呢？