《Mastering Delphi6》学习笔记下.docVIP

《Mastering Delphi6》學習筆記下 /jck/1212delphi.htm 構件自動清除的內幕 我們已經知道，TComponent在釋放自身的時候會自動刪除它Owns的所有Component，這是Delphi程式的一個極大特點。否則的話，任何動態生成的物件比如Menu Items都要自己維護和刪除，那將是多麽痛苦。VCL是如何做到這一點的呢？可以想象到，每個Component內部應該保持一個列表，記錄它所擁有的Components，在自身的析構函數中將列表中的所有物件同時刪除即可。基本上這個想法是正確的，不過應該考慮到兩種可能的情況：（1）構件刪除自身的時候，將它所擁有的子構件全部清除，這種情況下子構件是被動的；（2）某個子構件主動地調用了Free或者Destroy，這個時候，父構件應該有辦法得到通知，並且維持列表的同步。否則的話，就可能出現某個子構件被析構兩次以上的情況，其後果如何大概也可以想到了。 要保持列表的同步，子構件在建立的時候就必須向父構件報告，退出的時候也必須給父構件打個招呼才行。 原理不複雜，現在來看看VCL是如何實現的。TComponent的構造方法叫做Create,帶有一個AOwner參數： constructor TComponent.Create(AOwner: TComponent); begin FComponentStyle := [csInheritable]; if AOwner nil then AOwner.InsertComponent(Self); end; InsertComponent正是我們關心的地方。找找看它的具體實現: procedure TComponent.InsertComponent(AComponent: TComponent); begin AComponent.ValidateContainer(Self); ValidateRename(AComponent, , AComponent.FName); Insert(AComponent); AComponent.SetReference(True); if csDesigning in ComponentState then AComponent.SetDesigning(True); Notification(AComponent, opInsert); end; 雖然有些地方還不大明白，不過關鍵的部分看來是Insert(AComponent)一句。再找到Insert： procedure TComponent.Insert(AComponent: TComponent); begin if FComponents = nil then FComponents := TList.Create; FComponents.Add(AComponent); AComponent.FOwner := Self; end; 我們所猜想的內部列表終於現身，它是一個通用的，可以容納任何TObject或者Pointer的TList類型。 另外，從上面的代碼段也可以看到VCL中比較典型的一種處理方法，那就是物件“只有在需要的時候才建立”，比如上面建立FComponents就是屬於這種情況。當然，在每次建立一個構件時都檢查一遍FComponent的有效性將會稍稍影響程式的運行速度，但是考慮到程式所佔用的記憶體（Form和Application一般有應該有Components列表，而一般的構件則完全沒有必要，如果每個構件都建立一個List的話，那麽佔用的記憶體是相當可觀的），這種處理方法也有它的道理。 現在再來看看析構時的情況： destructor TComponent.Destroy; begin Destroying; if FFreeNotifies nil then begin while Assigned(FFreeNotifies) and (FFreeNotifies.Count 0) do TComponent(FFreeNotifies[FFreeNotifies.Count - 1]).Notification(Self, opRemove); FreeAndNil(FFreeNotifies); end; DestroyComponents; if FOwner nil then FOwner.RemoveComponent(Self); inherited Destroy; end; 這裏有兩個重要的地方：（1）DestroyComponents一句，顯然是刪除其所擁有的Components；（2）FOwner.RemoveComponents(Self)，看來是把自身從父構件的F