@Tyrael Y.:
TControl schein es nicht zu sein, oder aber ich habe eine Fehler im Code:
Delphi-Quellcode:
for i := 0 to Mainform.ComponentCount - 1 do
Begin
if (Mainform.Components [i]).tag=1 then
Begin
if (Mainform.Components[i] is TControl) then
TControl(Mainform.Components[i]).Color :=cl3DLight; //undefinierter Bezeichner Color
end; //if
end;
(Die zweite Abfrage könnte man auch mit der ersten Verbinden, hier soll jedoch noch mehr rein....)
MFG
Steffen