Hallo,

Ich habe mir eine Anwendung mit MDIChildren geschrieben. Zusätzlich befindet sich ein TabControl auf meiner Form, die die einzelnen Childs aufruft. Die Childs besitzen eine Variable, die den TabIndex enthält. Wenn ich jetzt aber ein Child schließe muss die Variable TabIndex der anderen Children angepasst werden. Gut da dachte ich mir bau in OnClose eine Schleife ein, die alle Children, die nach dem geschlossenen Child erstellt wurden, durchgeht und die Varable um 1 verringert. Das Problem ist das die Einträge der Eigenschaft MainForm.MDIChildren[i] ja nicht nach der Erstellung geordnet sind sondern nach der Aktivierung der Children. Hat jmd eine Idee wie ich das lösen könnte ohne eine eigene Liste anlegen zu müssen, die die Children verwaltet?

ich würde mir eher paralell zum TabControl.Tabs eine Liste mit den Handles der MDI-Childs speichern,
wo also zu jedem Tab-Index das Handle verfügbar wäre,
anstatt in den Childs die Indize zu speichern.

Kennst du denn den Index des geschlossenen MDI-Fensters?
Wenn nicht, dann durchsuchst du erstmal alle noch existierenden MDI-Childs und versuchst den Index des geschlossenen zu bestimmen (das wäre ja dann der Wert, welcher fehlt).
Und nun wird von allen MDI-Childs der Index verringert, welcher größer ist, als der Index des geschlossenen Childs.

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:

markieren

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;