VPF::Как узнать из какой кнопки была вызвана процедура

NightWolf

Дата 9.11.2005, 19:27 (ссылка)

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

Загрузка ...

Новичок

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

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

Есть массив кнопок создаваемых динамически, скажем Buttons: array of TButton; после создания кнопки я пишу Buttons.OnClick:=ButtonClick; описываю процедуру ButtonClick и тут вопрос, как узнать из какой кнопки была вызвана процедура, так как кликая на любую из них я попадаю в эту процедуру, или же предложите иной метод реализации

Alex

Дата 9.11.2005, 19:32 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

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

В качестве входного параметра OnClick передается Sender по нему и можно узнать какой компонент вызвал событие. Как вы хотите различать кнопки? Вы даете им разные имена или присваивате свойство Tag?

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

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

NightWolf

Дата 9.11.2005, 19:37 (ссылка)

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

Загрузка ...

Новичок

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

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

Код

SetLength(Buttons,n)
For i:= 0 to n-1 do
begin
  Buttons[i]:=TButton.Create(Self);
  Buttons[i].Parent:=Form1;
  Buttons[i].Caption:=Form1;
  Buttons[i].Left:=20;
  Buttons[i].Top:=10+i*30;
end;

примерно так =)
значит делаю проверку типа if Sender = Buttons[i] then я правильно понял?

Это сообщение отредактировал(а) Girder - 14.11.2005, 14:54

_hunter

Дата 9.11.2005, 20:10 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

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

проще при создании заполнять Tag:
Buttons[i].Tag = i;
потом приводить Sender к TComponent и смотреть этот Tag

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

Tempora mutantur, et nos mutamur in illis...

Alex

Дата 13.11.2005, 17:04 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

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

NightWolf, как сказал _hunter присваивайте свойству Tag уникальный номер кнопки, а потом в OnClick вы можете получить значение свойства Tag:

Код


TComponent(Sender).Tag

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

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Marriage

Дата 14.11.2005, 15:56 (ссылка)

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

Загрузка ...

Опытный

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

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

Если нужно производит операции над кнопкой , тогда просто
TButton(Sender) чем плох ???

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

Praemonitus, praemunitus

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