Zitat von
pirechner:
das mit den antworten geht hier immer echt schnell!
ich hab die label leider noch alle selber eingefügt per hand
.
aber es sind zu viele um alles einzutippen und dann wollte ich es etwas eleganter machen.
Wie wär's wenn du sie alle markierst und dann im
OI das Font (und damit die Font farbe) änderst?
Wenn es per Code gehen soll ist Components als Array of Component dein Freund.
Delphi-Quellcode:
for i := 0 to pred(ComponentCount) do
if Components(i) is TLabel then
with Components(i) as TLabel do
TLabel(Components(i)).Font.Color := clIrgendWas;
oder in D2005:
Delphi-Quellcode:
var
Component :TComponent;
begin
...
for Component in Components do
if Component is TLabel then
TLabel(Component).Font.Color := clIrgendWas;
...
war auch zu langsam, aber ich bin auch im Urlaub. Da darf man langsam sein
