Czy istnieje sposób odwołania się do wszystkich komponentów danego typu np TEdit i zmiane ich parametrów. Np mam 30 TEdit i chcę zmienić ich kolor na inny narmalnie trzeba była by wklepać edit1.color:='red'; edit2.color:='red' .....
Może można to zrobić łatwiej?
Dzieki
0
0
var
i: Integer;
begin
for i := 0 to Form1.ControlCount - 1 do
if (Form1.Controls[i] is TEdit) then
TEdit(Form1.Controls[i]).Color := clRed;
end;