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,沾沾自喜中……