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

发布时间：2020-12-15 04:20:09 所属栏目：大数据来源：网络整理

导读：我的环境： C Builder XE4 FormB是否可以知道FormB是用Show()还是ShowModal()显示的？在FormA： void __fastcall TFormA::Button1Click(TObject *Sender){ FormB-Show(); // FormB-ShowModal();} 在FormB： void __fastcall TFormB::FormShow(TObject *Send

我的环境：
C Builder 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中测试FormState中的fsModal.

我给你做了一个小例子：

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

uses Unit2;

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

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

这里没有魔法：D

然后向Form2添加一个OnShowEvent：

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

这应该为你做的伎俩.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!