Скачать: CL | DM;

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

← →
Тимофей   (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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.018 c