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

Вниз

Динамическое обращение к компонентам   Найти похожие ветки 

← →
AAZ69   (2003-09-24 14:22) [0]

Мастера! Уточню вопрос - необходимо такое "Button"+IntToStr(Index) динамическое обращение к объекту типа TButton. Как это сделать? Благодарю!

---

← →
Murad ©   (2003-09-24 14:28) [1]

Надо написать функцию ButtonByName(Name:String): TButton, которая будет искать в массиве Controls контрол с типом TButton и именем Name .

---

← →
Murad ©   (2003-09-24 14:33) [2]

Да... а про FindComponent я и забыл...

---

← →
Stas ©   (2003-09-24 14:37) [3]

if FindComponent ("Button"+IntToStr(index))<>nil then
FindComponent ("Button"+IntToStr(index)).font.color:=clBlue;

---

← →
Skier ©   (2003-09-24 14:38) [4]

>Stas © (24.09.03 14:37)
Уверен ?

---

← →
Stas ©   (2003-09-24 14:38) [5]

Т.е.
Так:if FindComponent ("Button"+IntToStr(index))<>nil then
Tbutton(FindComponent ("Button"+IntToStr(index))).font.color:=clBlue;

---

← →
AAZ69   (2003-09-24 15:16) [6]

Благодарю за помошь

---

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

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

Наверх

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