[Wave]

Здаровки!!! )

На форме есть большое количество компонентов TPanel и требуется изменить какое-либо свойство всех или нескольких компонентов.
Хотелось бы примерно следующее:

Код:

for i:=1 to 40 do
begin
panel+i.color:=clBlack; // Естественно это не работает.
end;

Может быть есть в делфи какая-нибудь функция?

[Страдалецъ]

Вам надо обойти все компоненты на форме, проверить их тип и присвоить нужное значение цвета: Где-то так:

Код:

 for i := 0 to ComponentCount-1
 do if Components[i].ClassType = TPanel
    then TPanel(Components[i]).Color := clBlack;