理解VCL中窗体的释放过程

關閉應用程序的過程：
WM_CLOSE，调用DestroyWindow()
DestroyWindow()又发送WM_DESTROY
响应WM_DESTROY，调用WM_QUIT
GetMessage()发现WM_QUIT，退出程序

delphi:
關閉-發出wm_close，響應消息，調用close，判斷是否為主窗，是:則調用application.terminate，而這個方法則會發送PostQuitMessage(0)，參數0是作爲wparam傳給wm_quit，消息循環在收到wm_quit時，退出循環，應用程序就結束了；否：調用release，此方法會PostMessage(Handle, CM_RELEASE, 0, 0);CM_RELEASE的處理函數，則會調用free；至此窗體就銷毀了。由於free銷毀了整個對象,因而窗體也就銷毀了.代碼如下：
destructor TWinControl.Destroy; var I: Integer; Instance: TControl; begin Destroying; if FDockSite then begin FDockSite := False; RegisterDockSite(Self, False); end; FDockManager := nil; FDockClients.Free; if Parent <> nil then RemoveFocus(True); if FHandle <> 0 then DestroyWindowHandle;//調用Windows.DestroyWindow(FHandle) I := ControlCount; while I <> 0 do begin Instance := Controls[I - 1]; Remove(Instance); Instance.Destroy; I := ControlCount; end; FBrush.Free; if FObjectInstance <> nil then FreeObjectInstance(FObjectInstance); inherited Destroy; end;
DestroyWindow銷毀窗口前，os發送消息wm_destroy,而vcl響應處理wm_destroy:
  RemoveProp(FHandle, MakeIntAtom(ControlAtom));
  RemoveProp(FHandle, MakeIntAtom(WindowAtom));
以上的函數是和setProp配對使用的，vcl在調用createwindowex並把返回值給FHandle后，調用setprop，將對象的地址記錄在property list。那麽ControlAtom和WindowAtom是什麽呢？其實每個對象有引用到controls，在controls單元初始化階段會執行inicontrols，代碼如下：
  WindowAtom := GlobalAddAtom(StrFmt(AtomText, 'Delphi%.8X',
    [GetCurrentProcessID]));//生成用於標示窗體自身的原子
  ControlAtom := GlobalAddAtom(
    StrFmt(AtomText, 'ControlOfs%.8X%.8X', [HInstance, GetCurrentThreadID]));//生成控件原子
每個window都有一個property list，是一種自描述的數據結構包含一個序列的值清單。由一組api在維護，其結構請參考下图：

（麻烦再点进去看图片吧，显示不了）

        delphi之所以要將窗口對象的地址保存在window properties list 中，目的是，看如下代碼：
function FindControl(Handle: HWnd): TWinControl; begin Result := nil; if Handle <> 0 then begin Result := Pointer(GetProp(Handle, MakeIntAtom(ControlAtom))); end; end;
通過window的handle，定位the property list，通過atom，尋找window對象地址（因爲delphi在窗口對象創建時，就已將此地址加到list當中）。