procedure TfrmJianKongXinXi.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfrmJianKongXinXi.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
frmJianKongXinXi:=nil;
end;
窗口关闭跟销毁事件
标签页方式打开窗体添加上面两句代码即可关闭