delphi - 是否可以知道使用 Show() 或 ShowModal() 显示的表单

我的环境:
C++ 生成器 XE4

FormB 是否有可能知道 FormB 是用 Show() 或 ShowModal() 显示的？

在FormA:

void __fastcall TFormA::Button1Click(TObject *Sender)
{
    FormB->Show();
    // FormB->ShowModal();
}

在 FormB:

void __fastcall TFormB::FormShow(TObject *Sender)
{
   // with some if sentence to know Show() or ShowModal()
}

最佳答案

您可以在表单的 onShowEvent 中测试 fsModal in FormState。

我给你做了一个小例子:

创建一个新项目，并为其添加一个额外的表单。在主窗体上放置两个按钮，让它们显示您的第二个窗体:

uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Form2.ShowModal;
end;

这里没有魔法:D

然后将 OnShowEvent 添加到您的 Form2 :

    procedure TForm2.FormShow(Sender: TObject);
    begin
      if fsModal in FormState then
        Caption := 'ShowModal'
      else
        Caption := 'Show';
    end;

那应该对你有用。

关于delphi - 是否可以知道使用 Show() 或 ShowModal() 显示的表单，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/32929890/