fsStayOnTop 表单隐藏的模态表单

Question

我有一个表单（下面示例中的 TBigForm），它允许操作一些复杂的数据并需要显示其他信息。我将此信息放入 fsStayOnTop 表单（示例中为 OnTopForm）中，以确保它始终可见，但可以在必要时移开。现在，当 TBigForm 中的某些用户操作显示模式表单时，它通常会隐藏在 OnTopForm 后面，这使得应用程序看起来冻结。我怎样才能避免这种情况？ （搜索产生了很多很多命中，但我无法从中提取解决方案。）

在我的真实应用程序中，有很多地方显示模式形式，所以我想避免更改所有这些调用。

示例：创建一个新的 VCL 应用程序，在 Form1 上放置一个 TButton，双击该按钮，并将生成的 Button1Click 实现存根替换为以下内容：

type
  TBigForm = class(TForm)
  strict private
    OnTopForm: TForm;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  protected
    procedure DoHide; override;
    procedure DoShow; override;
  public
    constructor Create(AOwner: TComponent); override;
  end;

{ TBigForm }

procedure TBigForm.Button1Click(Sender: TObject);
begin
  ShowMessage('Test');
end;

constructor TBigForm.Create(AOwner: TComponent);
begin
  inherited CreateNew(AOwner);

  Caption := 'Big form';
  WindowState := wsMaximized;

  Button1 := TButton.Create(Self);
  Button1.Parent := Self;
  Button1.Caption := 'Freeze!';
  Button1.SetBounds(10, 10, 100, 100);
  Button1.OnClick := Button1Click;
end;

procedure TBigForm.DoHide;
begin
  OnTopForm.Free;
  inherited DoHide;
end;

procedure TBigForm.DoShow;
begin
  inherited DoShow;
  OnTopForm := TForm.Create(Self);
  OnTopForm.Caption := 'Important information';
  OnTopForm.BorderStyle := bsToolWindow;
  OnTopForm.FormStyle := fsStayOnTop;
  OnTopForm.Position := poScreenCenter;
  OnTopForm.Show;
end;

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  f: TBigForm;
begin
  f := TBigForm.Create(nil);
  try
    f.ShowModal;
  finally
    f.Free;
  end;
end;

启动应用程序，单击“Button1”，然后单击“冻结！”。

（顺便说一句：我们使用 D2007。）

Answer 1

在将另一个表单显示为模态之前暂时更改 OnTopform 的 FormStyle：

procedure TBigForm.Button1Click(Sender: TObject);
begin
  OnTopForm.FormStyle := fsNormal;
  ShowMessage('Test');
  OnTopForm.FormStyle := fsStayOnTop;
end;

它应该适合您想要的...

Answer 2

在调用 ShowModal() 之前，尝试将模式 Form 的 PopupParent 属性设置为 StayOnTop Form，或者将 Application.ModalPopupMode 属性设置为 pmNone 以外的其他属性。

Answer 3

procedure TForm1.ScreenOnActiveFormChange(Sender: TObject);
begin
  if (Screen.ActiveForm <> nil) then
  begin
    if (Screen.ActiveForm.Handle <> Application.MainForm.Handle) then
      with Screen.ActiveForm do
        SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
    Windows.SetForeGroundWindow(Screen.ActiveForm.Handle);
  end;
end;

这应该有效。

Answer 4

这是你的好东西

Create an global TApplicationEvents
Declare an global var to keep track of modal form count
Hookup the OnMessage

var
  Ctrl: TControl;

if Msg.hwnd <> 0 then
  case Msg.message of
    CM_ACTIVATE,
    CM_DEACTIVATE:
    begin
      Ctrl := FindControl(Msg.hwnd);
      if Ctrl is TForm then
        if fsModal in TForm(Ctrl).FormState then
        begin  
          if Msg.message = CM_ACTIVATE then
            Inc(Modal form count var)
          else
            Dec(Modal form count var);

          add more logic based on Modal form count var
        end;
    end;
  end;

玩得开心