Главная страница
    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.005 c
1-32746
IGI
2002-03-29 12:57
2002.04.11
Файлы


3-32659
Makc
2002-03-20 10:03
2002.04.11
Проблема с переводом timestamp во что-нибудь более удобочитаемое


1-32771
snoup
2002-03-30 22:34
2002.04.11
Дайте пожалуйста простенький кодик как загружать и сохранять данн


4-33008
HardTouch
2002-02-11 02:54
2002.04.11
как показывать иконки программных и других (зарегистрированных) форматов файлов


1-32812
abstek
2002-03-30 10:42
2002.04.11
Как узнать тип переменной?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский