delphi - 如何才能让我的表单始终处于最重要的位置？

Question

我有这些光标形状的小表格，我需要一直在一切之上......
FormStyle 已经是 fsStayOnTop
我使用这段代码:

 SetWindowPos(tempCursor.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE );

还有这个(尽管我不太清楚它的作用):

procedure TCursorFrm.CreateParams(var Params: TCreateParams);
const
   WS_EX_NOACTIVATE = $8000000;
begin
   inherited;
   Params.ExStyle := Params.ExStyle + WS_EX_NOACTIVATE;
end;

但我仍然无法让我的表单位于 TMenuItems 的顶部。如何使我的表单始终处于最重要的位置？

Answer 1

这一定是我要发布的终极或最糟糕的黑客行为。

1. 将 FormStyle 设置为 fsStayOnTop(此步骤实际上可能没有必要)
2. 将 TTimer 拖放到表单上并将其间隔设置为 100

3. 在 OnTimer 事件中放置以下代码:

   如果可见的话 SetWindowPos(Self.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE 或 SWP_NOMOVE 或 SWP_NOACTIVATE);

我在我的一个项目中使用了它，它似乎工作正常。