盒子论坛 v2.1

在一个主窗体中不同的条件调用不同的子窗体，我的程序代码如下：
procedure TMainForm.DoForm(strFormNo : string);
begin
  if strFormNo = '001' then
  begin
    with TMasterStationAddrForm.Create(Application) do
    try
      Caption := strFormName;
      ShowModal;
    finally
      free;
    end;
  end
  else if strFormNo = '002' then
  begin
    with TGatewayForm.Create(Application) do
    try
      Caption := strFormName;
      ShowModal;
    finally
      free;
    end;
  end
  else if strFormNo = '003' then
  begin
    with TCheckTimeForm.Create(Application) do
    try
      Caption := strFormName;
      ShowModal;
    finally
      free;
    end;
  end
  ......
end;
由于子窗体比较多，按照我上面的写法代码就比较多。请教各位老师，有没有什么简单的方法？比如根据不同的条件将不同的子窗体赋给一个中间窗体，再ShowModal;如下面的写法：
procedure TMainForm.DoForm(strFormNo : string);
var
  FoundationForm : TForm;
begin
  if strFormNo = '001' then FoundationForm := TMasterStationAddrForm
  else if strFormNo = '002' then FoundationForm := TGatewayForm
  else if strFormNo = '003' then FoundationForm := TCheckTimeForm
  ......
  with FoundationForm.Create(Application) do
  try
    Caption := strFormName;
    ShowModal;
  finally
    free;
  end;
end;
但上面的写法是错误的行不动的，请教各位老师有什么好的方法？谢谢！
----------------------------------------------
不要等到孤独寂寞时才想起朋友，不要等到穷困潦倒时才想起发奋，不要等到疾病缠身时才想起健康。。。

作者：

lesuif (Levin)	▲▲▲▲▲	-
	普通会员

2016/6/24 15:40:14

1楼：

简单工厂模式
----------------------------------------------
-

信息

登陆以后才能回复