Скачать: CL | DM;

Как изменить цвет нескольких меток пользуясь свойством 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]

> ZEE © (11.09.03 15:41) [6]
> к [5] поправка

С поправкой заработало, Спасибо!!!

---

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

>Reindeer Moss Eater © (11.09.03 15:45)

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

как protected

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.015 c