Динамическое обращение к компонентам

← →
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]

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