小编Air*_*gat的帖子

我有一个应用程序,它包含一个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;