Delphi fsStayOnTop 怪事

Question

这是交易。主窗体设置为fsNormal。该主窗体最大化全屏并带有浮动工具栏。工具栏是正常形式，样式设置为fsStayOnTop。

大多数时候这会按预期工作。主窗体显示，工具栏浮在其顶部。

有时（这是查找一组可重现步骤的麻烦），当使用 alt-tab 键切换到其他应用程序或从其他应用程序切换时（或单击任务栏上的 Delphi 应用程序图标时），可能会出现以下症状：

1. 当使用 alt-tab 键离开其他 应用程序时Delphi 应用程序最顶层的浮动fsStayOnTop 表单保留在其他应用程序之上。因此，如果我使用 alt-tab 键切换到 Firefox，那么浮动菜单也会保留在 Firefox 的顶部。

2. 另一个应用程序通过 alt-tab 键切换到 Delphi 应用程序时，浮动菜单不可见（因为它位于 fsNormal 主窗体后面）。

这是一个已知的错误还是有任何黑客可以强制它工作？当应用程序的多个副本运行时（它们之间没有交互，应该在自己的窗口“沙箱”中运行），这种情况似乎也最常发生。

就好像 Delphi 混淆了哪个窗口应该位于顶部并交换它们或更改浮动形式以保持在一切之上模式。

或者我误解了fsStayOnTop？我假设将表单样式设置为 fsStayOnTop 使其位于当前应用程序中的所有其他表单之上，而不是其他正在运行的应用程序中的所有窗口。

Answer 1

我遇到了类似的问题，这个链接对我帮助很大： Delphi : 带有 fsStayOnTop 的气球窗体在 Win7 中不起作用

当我调用 Application.NormalizeTopMosts() 函数时，最上面的窗体会按照我的预期运行。

Answer 2

更多信息和可能的解决方案。

将浮动形式设置为 fsnormal。

当 mainform.activate 事件触发时，调用 floatform.bringtofront。

但我也对所有其他应用程序对话框使用stayontop。当应用程序的多个副本正在运行时，对话框会显示相同的问题（即，如果应用程序1打开了一个对话框，并且使用alt选项卡远离该对话框，则该对话框可能会保留在所有其他程序的顶部）。

Answer 3

我不知道这个区域有错误。

首先让我解释一下这个过程是如何工作的：

Delphi 在创建保存表单的窗口时首先使用 fsStayOnTop 样式，通过使用 HWND_TOPMOST< 调用 win32 函数 SetWindowPos /代码> 参数。

请参阅 http://msdn.microsoft.com/en- us/library/ms633545(VS.85).aspx 了解 SetWindowPos 的详细说明。

每次应用程序停用或最小化时，Delphi 都会枚举所有最顶层的窗体来规范化这些窗体（规范化是 vcl 使用的术语，表示最顶层的窗口变为非最顶层的窗口），并且它保留所有窗体的内部列表。此刻位于最上面的窗户。

每次激活或恢复应用程序时，Delphi都会使用存储在最顶层窗口列表中的信息来恢复所有最顶层的窗体（使用setWindowPos和HWND_TOPMOST参数）

所以对我来说问题似乎出在 Delphi 在应用程序最小化时枚举窗口时存储信息的方式。

我会侵入最小化或停用功能，并检查最上面的窗口列表（位于 Application.FTopMostList 上）是否正确列出。