VPF::одна процедура и много компонентов

ilya198293

Дата 4.6.2008, 12:37 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 170
Регистрация: 17.3.2007
Где: Сириус, созвездие Большого Пса

Репутация: нет
Всего: нет

динамически создаю BitBtn. подключаю одну и туже процедуру OnClick ко всем созданным BitBtn.
как теперь в процедуре узнать какая из кнопок была нажата, чтоб выполнить действие связанное именно с этой кнопкой?
как вообще можно по имени работать с динамически созданным компонентом

типа:

Код


i:=10;
(('BitBtn'+IntToStr(i)) as TBitBtn).<и тут пошло что-нибудь другое>

--------------------

Недавно пытался объяснить сыну, кто такой модератор. Сошлись на Мойдодыре.

Snowy

Дата 4.6.2008, 12:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

TBitBtn(Sender).что-тодругое

pseud

Дата 4.6.2008, 12:53 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

Цитата(ilya198293 @ 4.6.2008, 12:37

)

как вообще можно по имени работать с динамически созданным компонентом

так

Код


TBitBtn(FindComponent('<имя>')).ляляля

или присвоить какому нить указателю твой компонент:

Код


TForm
............
FКнопочка: TBitBtn;
............
FКнопочка := TBitBtn(FindComponent('<имя>'));

и работай дальше с FКнопочка

или сразу при создании делай

Код


FКнопочка := TBitBtn.Create(Self);

и работай дальше с FКнопочка

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

ilya198293

Дата 4.6.2008, 12:56 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

спасибо

а в любом месте программы обратиться к компоненту с именем 'BitBtn'+'10', т.е. имя собирается из составных частей, а потом используется как имя компонента?

пока писал вопрос уже ответили

спасибо ышо раз

Это сообщение отредактировал(а) ilya198293 - 4.6.2008, 13:09

--------------------

Недавно пытался объяснить сыну, кто такой модератор. Сошлись на Мойдодыре.

ilya198293

Дата 5.12.2008, 10:28 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

а если создавать динамически массивы, то как к ним обращаться
например создаю компонент 'комп'+IntToStr(1) динамически и к нему прилагается инфа которую хочу записать в массив 'mas'+IntToStr(1)
а как к нему потом обратиться?

или например отдельно взятая переменная?

--------------------

Недавно пытался объяснить сыну, кто такой модератор. Сошлись на Мойдодыре.

Akella

Дата 6.12.2008, 12:12 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Может тебе поможет свойство Tag?

lexaltd

Дата 6.12.2008, 13:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 4.10.2008

Репутация: нет
Всего: нет

Код


 if (Sender as TBitBtn).Name = 'BitBtn3' then

ilya198293

Дата 8.12.2008, 06:27 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Код


if (Sender as TBitBtn).Name = 'BitBtn3' then

к массиву или переменной, а не к кнопке
хотя если следовать логике то для массива должно быть так:

Код


if (Sender as array).Name = 'arr1' then

а для переменной ....................................... что-то не соображу как для переменной

--------------------

Недавно пытался объяснить сыну, кто такой модератор. Сошлись на Мойдодыре.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »