Ich hab eine Form, mit etlichen Komponenten und würde diese gern alle gleichzeitig zur Laufzeit formatieren.
Da ich sie nicht alle aufzählen will, hab ich es erstmal so gemacht:
Code: Alles auswählen
for i := 1 to 53 do
begin
with TLabel(FindComponent('L_b' + IntToStr(i))) do
begin
Font.Italic := true;
//usw...
end;
end;
Nun hat das ja aber den entscheidenden Nachteil, das ich trotzdem die Namen brauche, und nichts anderes übrig bleibt, als die Labels mit Indes zu versehen.
Nur ein einfaches Hochzählen für alle finde ich viel zu unübersichtlich.
Gibt es ne Möglichkeit alle Komponenten einer Form durchzugehen, und je nach Tpzu formatieren?
Ich dachte es mir so, komm da aber nicht richtig weiter:
Code: Alles auswählen
for i := 1 to Form_show_all.ComponentCount do
begin
// if Form_show_all.Components[i] = TLabel then
// TLabel(Form_show_all.Components[i]).Font.Italic := true;
end;
Nur wie stellt man nun fest, was für ein Typ die aktuelle Komponente ist?