Question

我有一个应用程序，它包含一个FormStyle声明为“fsStayOnTop”的表单，因此它总是显示在所有其他窗口的顶部。现在我想暂时显示另一个用户可以设置一些设置的表单。该表单也应显示在顶部，因此我将主窗体的FormStyle属性更改为“fsNormal”，并将我想要显示的窗体的FormStyle更改为“fsStayOnTop”。当临时表单关闭时，主表单再次获得“fsStayOnTop”。

现在设置表单保持在顶部，但只有在我通过鼠标单击表单内部激活它之前。当我在此之后单击另一个窗口时，单击的表单位于顶部，并且定义的FormStyle似乎不再有效。任何人都可以帮我吗？

这是我的FormShow和FormClose mehtod：

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ScaleOpen := false;
  SetForegroundWindow(TempHandle);
  Form1.FormStyle := fsStayOnTop;
end;


procedure TForm3.FormShow(Sender: TObject);
begin
  TempHandle := GetForegroundWindow;
  OldScaleM := Form1.GetScale;
  SaveChanges := False;
  ScaleOpen := true;
  Form1.FormStyle := fsNormal;
  Form3.FormStyle := fsStayOnTop;
end;

Answer 1

您可以将表单设置为＆＃34;始终位于顶部＆＃34;使用此代码的状态：

        SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0,
                     SWP_NoMove or SWP_NoSize);

您可以使用以下代码返回正常模式：

        SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0,
                     SWP_NoMove or SWP_NoSize);

要尝试它，只需在表单上放下两个按钮，然后将上面的代码与各自的OnClick处理程序相关联。

如何使表格始终保持领先

1 个答案: