dxTabbedMDIManager1关闭窗体

procedure TfrmJianKongXinXi.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;

procedure TfrmJianKongXinXi.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
frmJianKongXinXi:=nil;
end;

窗口关闭跟销毁事件

标签页方式打开窗体添加上面两句代码即可关闭