Как изменить цвет нескольких меток пользуясь свойством Components

← →
INTAARI (2003-09-11 14:48) [0]

Привет всем!!!
Мне необходимо в цикле менять цвета меток в зависимости от ситуации. Решил воспользоваться свойством Components. Name, Tag там есть, а Сolor нет. Может я не правильно вызываю свойство.

← →
KILLER-ABV (2003-09-11 14:52) [1]

var i: integer;
begin
for i:=0 to components.count do
Components.Name[i].color:= clBlack
end;

← →
Reindeer Moss Eater (2003-09-11 14:52) [2]

Components это свойство типа TComponent.
У него нет свойства Color.

Либо приведение типа либо использовать Controls

← →
INTAARI (2003-09-11 15:33) [3]

> Reindeer Moss Eater © (11.09.03 14:52) [2]

for i:=0 to componentCount-1 do (Components[i] as TControl.____) := clBlack

Здесь тоже нет Color или я не то делаю?

← →
Reindeer Moss Eater (2003-09-11 15:37) [4]

for i:=0 to Pred(ControlCount) do Controls[i].Color := clBlack

← →
ZEE (2003-09-11 15:39) [5]

for i:=0 to ControlCount-1 do TLabel(Controls[i]).Color:=clBlack;
думаю тебе это надо

← →
ZEE (2003-09-11 15:41) [6]

к [5] поправка
for i:=0 to ControlCount-1 do if Controls[i] is TLabel then TLabel(Controls[i]).Color:=clBlack;

← →
Reindeer Moss Eater (2003-09-11 15:41) [7]

TLabel(Controls[i]) - Это лишнее преобразование

← →
Skier (2003-09-11 15:43) [8]

>Reindeer Moss Eater © (11.09.03 15:41)

> TLabel(Controls[i]) - Это лишнее преобразование

Почему ?

← →
INTAARI (2003-09-11 15:44) [9]

> ZEE © (11.09.03 15:39) [5]

Заработало только вод ошибка violation at adress вылезает

← →
Reindeer Moss Eater (2003-09-11 15:45) [10]

> TLabel(Controls[i]) - Это лишнее преобразование

Почему ?

Потому что Color уже объявлен в TControl

← →
INTAARI (2003-09-11 15:47) [11]

← →
Skier (2003-09-11 15:48) [12]

← →
Reindeer Moss Eater (2003-09-11 15:49) [13]

Точно. Тороплюсь.

Как изменить цвет нескольких меток пользуясь свойством Components Найти похожие ветки