Edit-Komponenten zur Laufzeit die Hintergrundfarbe ändern

[Christian Seehase]

Moin Ameisenbär,

was Du Dir auf jeden Fall noch anschauen solltest ist FindComponent Einerseits hier, andereseits auch in der Hilfe.

Um, z.b., mit Hilfe einer TObjectList ein Array darzustellen:
Es hindert Dich ja niemand ein einer TObjectList wieder eine TObjectList unterzubringen, so dass Du eine zweidimensionale Liste erhältst (=Matrix)
Wenn diese nun garantiert TEdit enthalten genügt ein einfacher Typcast auf TEdit.

Mal ein ganz grobes Beispiel:

Delphi-Quellcode:

var
  ls1 : TObjectList;
  ls2 : TObjectList;

begin
  ls1 := TObjectList.Create(false);
  try
    try
      ls2 := TObjectList.Create(false);
      ls1.Add(ls2);
      (ls1[0] as TObjectList).Add(Edit1);
      ShowMessage((ls2[0] as TEdit).Text);
    finally
      FreeAndNil(ls2);
    end;
  finally
    FreeAndNil(ls1);
  end;
end;