Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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]

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



Страницы: 1 вся ветка

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

Наверх





Память: 0.44 MB
Время: 0.007 c
14-32971
Sks
2002-03-02 12:33
2002.04.11
Как программно найти настройку...


3-32655
Rad
2002-03-18 19:12
2002.04.11
Interbase vs Firebird


3-32703
MaveRick
2002-03-21 04:20
2002.04.11
Есть ли возможность???


1-32855
sammy
2002-03-29 07:11
2002.04.11
обработать OnClick


7-32996
Сергей Чурсин
2002-01-16 16:02
2002.04.11
Как убрать записи о неверных P&P устройствах ?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский