forms - Delphi:带 fsStayOnTop 的气球窗体在 Win7 中不起作用

Question

我有一个使用我自己的气球表单的应用程序。这是一种无边框、fsStayOnTop 类型的表单。

我用这段代码展示它:

ShowWindow(Handle, SW_SHOWNOACTIVATE);
Visible := True;

今天我意识到，如果我激活另一个应用程序，那么气球就不会出现!因此它正在失去保持顶级风格的能力。

环境:Win7/x64德尔福6专业版

我可以用它做什么？

谢谢: dd

Answer 1

过去在处理保持领先的表单时对我有用的方法:

Form := TMyForm.Create(Self);
Application.NormalizeTopMosts;
SetWindowPos(Form.Handle, HWND_TOPMOST, 0, 0, 0, 0,
             SWP_NOACTIVATE + SWP_NOMOVE + SWP_NOSIZE);
Form.Show;

尝试使用此方法来代替 ShowWindow 调用。它位于所有窗口的顶部(您真的想要这个吗？)。而且它感觉有点 hacky，因为它省略了文档中说我们应该调用的 RestoreTopMosts 调用(因此应用程序中的其他停留在顶部的窗口将受到影响)。所以可能有更好的解决方案。