我做了一个MDI窗体, 一个子窗体当运行子窗体后再FREE 这个子窗体时发现系统内存没有下降是怎么回事 子窗体中有多个动态创建的WEBBROWSER 控件及其它相关控件

程式碼貼出來看看

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

[CODE] procedure Tfrm_url_w.WebNewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool); var newtab : TTabSheet; newweb : TWebBrowser; begin newtab := TTabSheet.Create(Self) ; newtab.PageControl := PageControl1; newtab.Caption := '页面读取中...'; //newtab.Name:='TabSheel' inttostr(Pagecontrol1.PageCount); newweb := TWebBrowser.Create(self); //newweb.Name:='Web' inttostr(Pagecontrol1.PageCount); newweb.OnNewWindow2:=WebNewWindow2; newweb.OnBeforeNavigate2:=WebBeforeNavigate2; newweb.OnDocumentComplete:=WebDocumentComplete; newweb.OnStatusTextChange:=WebStatusTextChange; newweb.OnProgressChange:=WebProgressChange; newweb.ParentWindow := newtab.Handle; TOleControl(newweb).Parent :=newtab; TOleControl(newweb).Name := 'Web' inttostr(Pagecontrol1.PageCount); newweb.Align := alClient; ppDisp := newweb.DefaultDispatch; end; [CODE]

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.