delphi – 如何让我的表单始终处于最佳状态？

发布时间：2020-12-15 09:08:16 所属栏目：大数据来源：网络整理

导读：我有这些小光标形状,我需要一直在所有的一切,一直…… FormStyle已经是fsStayOnTop 我用这个代码： SetWindowPos(tempCursor.Handle,HWND_TOPMOST,SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE ); 而这(虽然我不知道它的作用)： procedure TCursorFrm.Create

我有这些小光标形状,我需要一直在所有的一切,一直……
FormStyle已经是fsStayOnTop
我用这个代码：

SetWindowPos(tempCursor.Handle,HWND_TOPMOST,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之上.
如何让我的表格始终处于最佳状态？

解决方法

这必须是我将要发布的最终或最糟糕的hackery.

>将FormStyle设置为fsStayOnTop(实际上可能不需要此步骤)
>在表单上删除TTimer并将其间隔设置为100
>在OnTimer事件中,放置以下代码：

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

我在我的一个项目中使用它,它似乎工作正常.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!