如何使表格保持在整个申请的所有其他表格之上?

时间:2015-12-23 11:57:25

标签: delphi delphi-7

如何使表格(显示进度)在我的申请表格的整个申请ONYL中保持在所有其他表格之上?

即使在模态形式之上。 但是,不是在其他桌面窗口/应用程序之上?

fsStayOnTop没有达到预期的效果。

2 个答案:

答案 0 :(得分:1)

使用Win32函数SetWindowPos。传递HWND_TOP和一堆SWP_NO ...值,以保留您不想改变的所有属性。

我还没有测试过这个。应该是好的。

https://msdn.microsoft.com/en-us/library/windows/desktop/ms633545(v=vs.85).aspx

答案 1 :(得分:-1)

你可以试试这个简单的伎俩:

procedure TProgressForm.FormDeactivate(Sender: TObject);
begin
  ProgressForm.BringToFront;
end;