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;