| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
всё очень просто [D2005, XP]
Тимофей © (2007-07-03 15:12:00)условно есть 2 кнопки Button1 и Button2 которые запускают процедуру Procedure1.
как узнать в процедуре какая из кнопок ее запустила ?
Тимофей (2007-07-03 15:56:00) [1]
> Пожалуй я не буду спрашивать, что это за CalcMK и как она
> привязывается к букавам в [0]... Скучно мне и неинтересно.
> ..
вообще CalcMK это та самая процедура, но раз ты не спрашиваешь отвечать не буду :)
Плохиш (2007-07-03 15:46:00) [2]
> Тимофей (03.07.07 15:43) [5]
> через событие OnClick
тогда тебе уже ответили.
> Тимофей (03.07.07 15:44) [6]
> вот так:
> CalcMK(BitBtn1);
Пожалуй я не буду спрашивать, что это за CalcMK и как она привязывается к букавам в [0]... Скучно мне и неинтересно...
palva (2007-07-03 15:45:00) [3]
> Тимофей (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:00) [4]спасибо!
Тимофей (2007-07-03 15:44:00) [5]вот так:
CalcMK(BitBtn1);
Тимофей (2007-07-03 15:43:00) [6]через событие OnClick
Плохиш (2007-07-03 15:39:00) [7]А я сначала спрошу. А каким способом эти кнопки запускают указанную процедуру?
iXT (2007-07-03 15:35:00) [8]TButton(Sender)
Тимофей (2007-07-03 15:17:00) [9]да, а синтаксис какой ?
clickmaker (2007-07-03 15:14:00) [10]Sender?
| |
