Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Вниз

Help, please :) 


madburro   (2002-03-31 23:38) [0]

У меня на форме много кнопок. Мне нужно написать 1 процидуру и повесить её на OnClick этих кнопок (одна на все). Эта процидура должна мне говорить имя кнопки на которую я нажал. Как это сделать?
Пасиба :)



lipskiy   (2002-03-31 23:48) [1]

В объект испекторе в свойствах каждой кнопки выбираешь из списка свой один обработчик онклика - и он подключается к каждой кнопке.
Внутри процедуры берешь от входного параметра Sender то, что тебе надо знать о кнопке.
Например, имя кнопки:
TButton(Sender).Name
Надпись на конпке:
TButton(Sender).Caption
и так далее.



lipskiy   (2002-03-31 23:50) [2]

Если не хочешь подключать в дизайн-тайме обработчики, можешь в ран-тайме это делать - в обработчике Form.OnCreate напиши:
Button1.OnClick:= Button1OnClick;



MadBurro   (2002-04-01 00:16) [3]

Большое спасибо :)




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.045 c
1-32824           snoup                 2002-03-27 19:18  2002.04.11  
Как с помощью компонента TDialUp сделать автодозвон? Я пишу так:


1-32730           Eug201                2002-03-26 18:08  2002.04.11  
TRxRichedit


1-32764           Konsul                2002-03-31 00:25  2002.04.11  
Taskbar


3-32697           Евген                 2002-03-19 07:57  2002.04.11  
Работа с компонентом TUpdateSQL


1-32865           LazorenkoX            2002-03-29 11:02  2002.04.11  
Создание компонент