Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.07.29;
Скачать: [xml.tar.bz2];

Вниз

всё очень просто   Найти похожие ветки 

 
Тимофей   (2007-07-03 15:12) [0]

условно есть 2 кнопки Button1 и Button2 которые запускают процедуру Procedure1.

как узнать в процедуре какая из кнопок ее запустила ?


 
clickmaker ©   (2007-07-03 15:14) [1]

Sender?


 
Тимофей   (2007-07-03 15:17) [2]

да, а синтаксис какой ?


 
iXT ©   (2007-07-03 15:35) [3]

TButton(Sender)


 
Плохиш ©   (2007-07-03 15:39) [4]

А я сначала спрошу. А каким способом эти кнопки запускают указанную процедуру?


 
Тимофей   (2007-07-03 15:43) [5]

через событие OnClick


 
Тимофей   (2007-07-03 15:44) [6]

вот так:
CalcMK(BitBtn1);


 
palva ©   (2007-07-03 15:45) [7]


> Тимофей   (03.07.07 15:17) [2]
> да, а синтаксис какой ?

procedure TForm1.Procedure1(Sender: TObject);
begin
 if sender = Button1 then ShowMessage("1");
 if sender = Button2 then ShowMessage("2");
end;


 
Тимофей   (2007-07-03 15:45) [8]

спасибо!


 
Плохиш ©   (2007-07-03 15:46) [9]


> Тимофей   (03.07.07 15:43) [5]
> через событие OnClick

тогда тебе уже ответили.

> Тимофей   (03.07.07 15:44) [6]
> вот так:
> CalcMK(BitBtn1);

Пожалуй я не буду спрашивать, что это за CalcMK и как она привязывается к букавам в [0]... Скучно мне и неинтересно...


 
Тимофей   (2007-07-03 15:56) [10]


> Пожалуй я не буду спрашивать, что это за CalcMK и как она
> привязывается к букавам в [0]... Скучно мне и неинтересно.
> ..


вообще CalcMK это та самая процедура, но раз ты не спрашиваешь отвечать не буду :)



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

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

Наверх




Память: 0.46 MB
Время: 0.054 c
15-1183371286
P
2007-07-02 14:14
2007.07.29
Программист, проектирующий довольно уникальную систему, он -


2-1183361301
Dyakon_Frost
2007-07-02 11:28
2007.07.29
Как присвоить один код для многих компонентов одного типа


15-1183459403
исследователь
2007-07-03 14:43
2007.07.29
Подскажите с покупкой


2-1183374371
malor
2007-07-02 15:06
2007.07.29
Error reading MyAdvStringGrid.SearchFooter.FindNextCaption: Prope


15-1183103064
Igorek
2007-06-29 11:44
2007.07.29
Сферическая геометрия - учебник, справочник, курс лекций





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