//关闭子窗体 procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); begin action := cafree ; end; //动态创建子窗体 procedure TForm1.N111Click(Sender: TObject); begin form2 := Tform2.Create(application); form2.show; end; //判断子窗体是否打开 if not assigned(form2) then begin form2 := Tform2.Create(application); form2.show; end;