关于form小问题!

Question

if (Sender Is TForm) and (Sender.ClassName = FormName)
  then  (Sender As TForm).ShowModal;

Answer 1

if (Sender Is TForm) and (Sender.ClassName = FormName)
  then  (Sender As TForm).ShowModal;

Answer 2

下面这个函数提供了这个普遍功能，调用即可（注意参数）
procedure TFormGprsMain.ShowChildForm(AFormClass:TFormClass);
begin
  with AFormClass.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
end;

Answer 3

下面这个函数提供了这个普遍功能，调用即可（注意参数）
procedure TFormGprsMain.ShowChildForm(AFormClass:TFormClass);
begin
  with AFormClass.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
end;

Answer 4

所指定的form名称已经创建了吗？
你看这样如何：
form1:=tform.creat(application)//先创建
form1.showmodal

Answer 5

1)需创建时采用
var
   bbb:TForm2;
begin    bbb.Name :='Form2';
    bbb:=TForm2.Create(self);
    bbb.ShowModal;
end;
2)若指定名称的Form已创建则采用
var   bbb:TForm2;
begin    bbb:=Form2;
    bbb.ShowModal;
end;