Bestimmtes MDI-Child finden... ?!?

[sECuRE]

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