MDI: Child erstellen

[rebugger]

Habe irgendwie einen Denkfehler:

Delphi-Quellcode:

var
  iNew_num   : Integer;
  iNew_child : TfrmChild;
begin
  if MDIChildCount > 0 then
    iNew_num := (MDIChildren[MDIChildCount - 1].Tag + 1)
  else
    iNew_num := 1;

  iNew_child := TfrmChild.Create(nil);
  with iNew_child do
  begin
    Tag     := iNew_num;
    Name    := 'CodePage' + IntToStr(iNew_num);
    Caption := 'unbenannt' + IntToStr(iNew_num);
  end;
end;

Beim ersten Aufruf hat iNew_num den Wert 1, beim 2. Aufruf den Wert 2, aber dem dritten Aufruf gibts Probleme, da schon wieder 2 rauskommt.

Mein Fehler muss hier irgendwodrin liegen:

Delphi-Quellcode:

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

[Markus K.]

Hallo rebugger,
ich habe den Fehler zwar noch nicht gefunden aber du könntest es ja auch so schreiben.

Delphi-Quellcode:

if MDIChildCount > 0 then
    iNew_num := MDIChildCount+1
else
    iNew_num := 1;

Tschüß Markus

[rebugger]

Das kann aber Probleme geben:
Ich erstelle 3 Fenster (1,2,3) und Lösche das 1. (also nur noch 2,3) und will dann ein neues erstellen würde er es als 2+1 (also 3) nehmen.

Also muss er immer die Zahl des letzten + 1 nehmen.

[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;

[Markus K.]

Hallo rebugger,
der folgende Code funktioniert bei mir...frage mich aber nicht warum :gruebel:

Delphi-Quellcode:

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

Tschüß Markus