| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Отдиление

Дима2 ©   (2002-04-01 17:15:00) 

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

---

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

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

---

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

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

---

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

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

---

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

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

---

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

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

---

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

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

---

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

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

---

Наверх