我的环境：
C Builder XE4
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;
这应该为你做的伎俩.