Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];




Вниз

Отдиление 


Дима2   (2002-04-01 17:15) [0]

Подскажите!
Имеется скажем label1. Как мне сделать так, чтобы было:
var s:string;{integer?}
s:="1";
label+s.color:=clred;



Виктор Щербаков   (2002-04-01 17:24) [1]

Попробуй через FindComponent.



Johnmen   (2002-04-01 17:29) [2]

const colors : array[0..?] of integer =
(clRed,clGreen,...);
var i : integer;
...
label1.color:=colors[i];
...



Дима2   (2002-04-01 17:32) [3]

Т.е. label(findcomponent(1)).--.--:=--;



Виктор Щербаков   (2002-04-01 17:34) [4]

Примерно так:
var s: string;
begin
s:="1";
(Form1.FindComponent("Label" + s) as TLabel).Color := clRed;



Дима2   (2002-04-01 17:37) [5]

Johnmen! Стоит задача не в том чтобы 1-му label присваивали по очереди разные цвета, а в том что-бы РАЗНЫМ label присваивали один и тот-же цвет(Возможно в цикле)



Johnmen   (2002-04-01 17:40) [6]

Да понял уже ! И впрочем уже ответили...



Дима2   (2002-04-01 17:45) [7]

Виктор Щербаков ! Как нестранно это заработало,
но если memo то TMemo и т.п.?




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.02 c
14-46502          Андрей Сенченко       2002-03-05 17:33  2002.04.15  
Компоненты для архивации


1-46383           Chainik               2002-04-02 09:57  2002.04.15  
Помогите с переносом данных из DBGrid в Excel :((


1-46365           Glonia Zbanov         2002-04-01 14:28  2002.04.15  
Как использовать GetScreenWidth


7-46523           EskimOS               2002-01-21 10:38  2002.04.15  
Работа с большим файлом...


1-46445           konrads               2002-04-03 10:19  2002.04.15  
Как проще всего сложить 2 байта по модулю 2