![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Отловить нажатие кнопки [D6, 95/98]
Rubey © (2006-04-25 08:11:00)Прошу знатоков подсказать, как отловить какой баттон из расположенных на форме нажат конкретно. В зависимости от этого необходимо выполнять различные функции в форме.
С уважением - Рубей.
25.04.2006
AbrosimovA (2006-04-25 08:41:00) [1]Или используй один обработчик OnClickдля всех кнопок, внутри которой используй конструкцию вида:
procedure TForm1.ButtonClick(Sender: TObject);
begin
case TButton(Sender).Tag of
1: <функция 1> ;
2: <функция 2> ;
... ;
N: <функция N> ;
end;
end;
Только не забудь всем кнопкам задать св-во Tagот 1до N;
balepa (2006-04-25 08:26:00) [2]Или используй какую нибудь глобальную переменную
balepa (2006-04-25 08:19:00) [3]В обработчике OnClick каждого бутона вызывай функцию которую тебе нужно.