MDI: Child erstellen

[rebugger]

Fehler gefunden: er setzt das aktive Fenster immer als MDIChildren[0]

Lösung:

Delphi-Quellcode:

  if MDIChildCount = 1 then
    iNew_num := ActiveMDIChild.Tag + 1
  else if MDIChildCount > 0 then
  begin
    if ActiveMDIChild.Tag = MDIChildCount then
      iNew_num := MDIChildCount + 1
    else
      iNew_num := (MDIChildren[MDIChildCount - 1].Tag + 1);
  end
  else
    iNew_num := 1;