Auf MDI-Child zur Laufzeit zugreifen!

[x000x]

Moin moin,
eine Möglichkeit wäre...

Delphi-Quellcode:

//..
var
   i, j : Integer;
begin
   for i := MainForm.MDIChildCount-1 downto 0 do begin
      with MainForm.MDIChildren[i] do begin
         for j:=0 to ComponentCount -1 do begin
            if Components[j] is TMemo then
               TMemo(Components[j]).Color := clBlue;
         end;
      end;
   end;
end;
//..