всё очень просто

← →
Тимофей (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]

спасибо!

> Тимофей (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 это та самая процедура, но раз ты не спрашиваешь отвечать не буду :)

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