7

总结：

请参阅下面来自 Craig 和 Sertac 的有用评论。

==================================================== ====

如以下最小化代码所示，TForm10设置为fsStayOnTop. TForm10.btnTryDlgClickcall dlgOpen1.Execute，显示的对话框与预期的一样。但是，当我调用TForm11.Create(Self).ShowModalinside时TForm10.btnTryFormClick，表单隐藏在 TForm10 后面。我想知道如何理解这种行为，为什么标准 TOpenDialog 可以按预期显示？任何评论表示赞赏！

PS：一种解决方法是覆盖 TForm11 的 CreateParams 过程，并将 Params.wndParent 设置为 0。但在我看来，使用此解决方法会破坏窗口层次结构。 

  procedure TForm11.CreateParams(var Params: TCreateParams); // override;
  begin
    inherited;
    params.wndParent := 0;
  end;

PS：Remy 在以下相关 SO 页面中提到了另一种解决方法： setting the modal Form's PopupParent property to be the StayOnTop Form. 但在随后的评论中，Sertac 提到这种解决方法也会破坏窗口层次结构。

PS：可能相关的 SO 页面：
由 fsStayOnTop 表单隐藏的模态表单
如何使 FindDialog 保持在顶部（Delphi）？
如何确保对话框始终位于主窗口的前面
当调用 ShowModal 时，窗体隐藏在其他窗体后面
使 2 个窗体能够相互重叠？
多表单 Delphi 应用程序和对话框
新创建的模式窗口在 Windows Vista 中失去焦点并变得无法访问
Delphi - 如何防止 Forms/MsgBoxes 在先前的表单下移动？
如何
使用 Show 在主窗体 Fake 模态对话框后面允许 Delphi 辅助窗体？
Delphi MainFormOnTaskBar 模态窗口错误

单元 10 的来源： 

    unit Unit10;

    interface

    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;

    type
      TForm10 = class(TForm)
        btnTryDlg: TButton;
        dlgOpen1: TOpenDialog;
        btnTryForm: TButton;
        procedure FormCreate(Sender: TObject);
        procedure btnTryDlgClick(Sender: TObject);
        procedure btnTryFormClick(Sender: TObject);
      end;

    var
      Form10: TForm10;

    implementation

    {$R *.dfm}

    uses
      Unit11;

    procedure TForm10.FormCreate(Sender: TObject);
    begin
      FormStyle := fsStayOnTop;
    end;

    procedure TForm10.btnTryDlgClick(Sender: TObject);
    begin
      dlgOpen1.Execute;
    //  dlgOpen1.Execute(Self.Handle);
    end;

    procedure TForm10.btnTryFormClick(Sender: TObject);
    begin
      TForm11.Create(Self).ShowModal;
    end;

    end.

单元 10 的 DFM： 

    object Form10: TForm10
      Left = 0
      Top = 0
      Caption = 'Form10'
      ClientHeight = 255
      ClientWidth = 414
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      OldCreateOrder = False
      OnCreate = FormCreate
      PixelsPerInch = 96
      TextHeight = 13
      object btnTryDlg: TButton
        Left = 32
        Top = 24
        Width = 153
        Height = 201
        Caption = 'Try dialog'
        TabOrder = 0
        OnClick = btnTryDlgClick
      end
      object btnTryForm: TButton
        Left = 224
        Top = 24
        Width = 153
        Height = 201
        Caption = 'btnTryForm'
        TabOrder = 1
        OnClick = btnTryFormClick
      end
      object dlgOpen1: TOpenDialog
        Left = 96
        Top = 168
      end
    end

单元 11 的来源： 

    unit Unit11;

    interface

    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs;

    type
      TForm11 = class(TForm)
      end;


    implementation

    {$R *.dfm}

    end.

单元 11 的 DFM： 

    object Form11: TForm11
      Left = 0
      Top = 0
      Caption = 'Form11'
      ClientHeight = 183
      ClientWidth = 203
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      OldCreateOrder = False
      PixelsPerInch = 96
      TextHeight = 13
    end
4

1 回答 1

5

设置模态表单的 PopupParent 属性，就像 Remy 建议的那样。这将使对话框成为 StayOnTop 表单的父级，这是对话框的 Execute 方法已经在做的事情。我不确定 Sertac 的评论来自哪里，但使用 PopupParent 可以正确设置窗口层次结构，因此对话框将始终位于 StayOnTop 表单上方。

于 2011-03-22T18:37:01.210 回答