补充一下后来想出的半截子绕过前一篇提到的问题的办法

最新推荐文章于 2025-08-20 13:00:18 发布

原创最新推荐文章于 2025-08-20 13:00:18 发布 · 822 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#application #汇编

本文探讨了解决TCustomForm在特定条件下产生死循环的问题。通过修改CreateParams函数及动态修补vcl120.bpl的方法，可以有效避免死循环的发生。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

============ 补充一下后来想出的半截子绕过前一篇提到的问题的办法：

这个问题在TCustomForm的CreateParams被调用时，如果当前Application的ActiveForm的Handle存在，并且这个Handle拿来GetWindowLong一下其GWL_EXSTYLE时具有WS_EX_TOOLWINDOW风格的话，即会产生这个死循环。

在自己的窗体创建并显示的情况下，如要躲过此循环，可override CreateParams函数，在inherited前判断Application的ActiveForm的Handle并设置其GWL_EXSTYLE为非 WS_EX_TOOLWINDOW，inherited 后再恢复，即可。

如果是多模块协作带包链接，是别人的窗体没法改源码，那就得考虑动态修补vcl120.bpl了。将Result := GetParent(WndParent); 改成 Result := GetParent(Result); 只需要将一处汇编代码 56 push esi 改成 53 push ebx，改一字节即可，但这种方法兼容性比较的差，版本一变偏移量就会变，难以维护。