Ok ich habs so wie du gesagt hast probiert und dabei ist mir noch eine andere Methode eingefallen.
Ich geh einfach alle MDIChildren durch und überprüfe ob Tabindex größer ist als der des zu löschenden Childs.
Wenn ja soll Tabindex um eins verringert werden.
Mein neuer Code:
Delphi-Quellcode:
for i := 0 to MainForm.MDIChildCount - 1 do
begin
if TChildForm(MainForm.MDIChildren[i]).TabIndex > TabIndex then
begin
TChildForm(MainForm.MDIChildren[i]).TabIndex := TChildForm(MainForm.MDIChildren[i]).TabIndex - 1;
end;
end;