问一个MDI的问题 烦人:(

Question

Delphi7
我用MDI向导生成了一个项目，上面有新建按钮，点击新建就出来一个mdi子窗体，如何当主窗体运行时就打开一个mdi子窗体呢
project-->option--Forms 我把MDIchild窗体拖到左边来了可是运行后却出现错误 如下
[Error] MDIAPP.dpr(15): Undeclared identifier: 'MDIChild'
大家帮忙看看时怎么回事儿，多谢

Answer 1

去重新生成一个，然后FormShow加入以下代码
procedure TMainForm.FormShow(Sender: TObject);
begin
  CreateMDIChild('NONAME' + IntToStr(MDIChildCount + 1));
end;
----------------
如果你想在现在的基础上改，就到CHILDWIN单元加两句话
-------
unit CHILDWIN;interfaceuses Windows, Classes, Graphics, Forms, Controls, StdCtrls;type
  TMDIChild = class(TForm)
    Memo1: TMemo;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var  //第一句
  MDIChild :tMDIChild;//第二句
implementation{$R *.dfm}procedure TMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;end.