发现 Delphi 2009 VCL 源码中一处可能导致死循环的 Bug

Delphi 2009/2007 的 source/Win32/vcl/Forms.pas 中，GetNonToolWindowPopupParent 函数实现部分：

function GetNonToolWindowPopupParent(WndParent: HWND): HWND;

begin

  Result := GetParent(WndParent);

  while (Result <> 0) and (GetWindowLong(Result, GWL_EXSTYLE) and WS_EX_TOOLWINDOW = WS_EX_TOOLWINDOW) do

    Result := GetParent(WndParent);

    ... // 以下省略

    

很明显，如果第一次进入 while 时判断成立，那么 Result 的值就始终是 WndParent 的 Parent，也就没机会跳出循环了。Result := GetParent(WndParent); 应该改成 Result := GetParent(Result); 才对。

GetNonToolWindowPopupParent 是在 TCustomForm 的 CreateParams 中被调用的，也就是说某些窗口在 Create 的时候，可能就会碰上这个死循环，导致程序挂在这个窗体 Create 的过程中。

网上没搜到这个 Bug 的相关内容，可能一般人的程序中都不会进入这个 while，但 CnPack IDE 专家包的某些窗体代码偏偏就进入了这个 while，导致用户 IDE 失去响应，然后在调试过程中才找到这个问题的根源。

Delphi 2009 Update 1 中仍旧存在此问题，并且以前的 BDS 中貌似也有此问题。目前还在想办法看如何绕过它。

感谢 godnumen 和 笑三少 的报告与协助。第一回发现 VCL 源码的 bug，沾沾自喜中……