Hi,
das zuletzt erstellte kannst du finden, indem du so vorgehst:
Delphi-Quellcode:
// THugoForm ist deine Formklasse und braucht eine public-eigenschaft CreateTime:TDateTime;
function TForm1.FindLastChild:THugoForm;
var times:array of TDateTime; c:integer;
begin
ins:=1;
for c:=0 to (MDIChildCount-1) do
if (MDIChildren[c] is THugoForm) then
Inc(ins);
SetLength(times,ins);
for c:=0 to (MDIChildCount-1) do
if (MDIChildren[c] is THugoForm) then
times[c]:=THugoForm(MDIChildren[c]).CreateTime;
// Damit ich nicht alles vorkaue, darfst du die Liste selbst sortieren lassen ;)
// Das letzte oder erste Item, je nachdem wie du sortierst übergibst du dann als Ergebnis
if (length(times) > 0) then
result:=nil
else result:=times[0];
end;
// Aufgerufen wird die Funktion mit:
procedure TForm1.Test;
var letzteform:THugoForm;
begin
letzteform:=FindLastChild;
// irgendwas mit letzteform machen
end;
Viel Spaß,
cu