关闭子窗体

Question

MainForm.ActiveMDIChild.Close;procedure TChildForm.FormClose(....);
begin
  Action := caFree;
end;

Answer 1

 to taxi(游少爷)
 to caiyun
 那种方法可能不行的，试试这个吧，而且也好玩
procedure Tformx.FormDestroy(Sender: TObject);
begin
   tdeform:=nil;
end;/////////////////////////////////////////////////////////////////procedure Tformx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   action:=cafree;
end;
^V^