Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.026 c
3-18275
S.A.S.
2003-09-15 13:13
2003.10.06
Delphi 7 and FireBird embedded


3-18273
ZS
2003-09-17 14:32
2003.10.06
DSQL?


1-18387
Катерина
2003-09-22 17:11
2003.10.06
Chart и Splitter


6-18517
ilka
2003-08-07 16:17
2003.10.06
странные веши творятся с TClientSocket


1-18424
Deb
2003-09-24 22:40
2003.10.06
многострочный RadioButton