Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.22;
Скачать: 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 вся ветка

Текущий архив: 2003.09.22;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.015 c
1-71704
iWorm
2003-09-10 02:40
2003.09.22
Добавить кнопку на таск бар


7-71966
_FreeMan_
2003-07-10 00:35
2003.09.22
Как отключить звуковую(или сетевую) карту?


14-71839
Карелин Артем
2003-09-01 13:35
2003.09.22
Перепись. Ненормальная.


3-71475
hawkins
2003-09-02 09:06
2003.09.22
как сделать копию строки в таблице


11-71569
microlab
2003-01-15 18:59
2003.09.22
Помогите!!!