如何在父窗口中运行子窗口?急急!!

Question

我现在遇到这样一个问题,通过父窗口的主菜单中的命令来执行子窗口,我把子窗口从"自动创建"中移除,也用了create来创建它,但是创建的是一个新的窗体,并不是把原来设计好的那个窗体调出来.
烦请各位解决这个问题,最好能给出代码

Answer 1

你可以这样  将一个 窗体的代码写好 
 需要调用时  好象用SHOW 一下  才行

Answer 2

procedure TFatherFrm.ShowChildForm;
var
  ChildFrm:TChildFrm;
begin
  ChildFrm:=TChildFrm.Create(Self);
  try
    ChildFrm.ShowModal;
  finally
    ChildFrm.Free;
  end;
end;
TChildFrm为子窗体的类名称
TFatherFrm为父窗体的类名称，在父窗体中调用ShowChildForm即可

Answer 3

先判断窗体是否已经创建，如果没有则创建，否则，打开原来的通过if formChildForm = nil then
    begin
      formChildForm := TformChildForm(Application) 
      formChildForm.show();
      exit;
    end;
    formChildForm.show();