Главная страница
    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.04 c
2-1183480740
Zablkon
2007-07-03 20:39
2007.07.29
Преобразование типов


15-1183153749
Riply
2007-06-30 01:49
2007.07.29
Что-то пустынно стало на форуме


9-1157097994
Provodnick
2006-09-01 12:06
2007.07.29
Рисование координатной сетки


1-1177091630
ffo_2
2007-04-20 21:53
2007.07.29
Как прочесть текст в чужом окне?


2-1183559033
Реактор
2007-07-04 18:23
2007.07.29
Проблема Read Write





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