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

Как назначить Button.Click; другому компоненту?   Найти похожие ветки 

← →
Валерий   (2004-10-21 03:57) [0]

Почему это не работает? И как нужно сделать?

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
if Key = VK_RETURN then ButtonOk.Click;
end;

Пишет: [Error] Unit1.pas(60): Undeclared identifier: "Click"

---

← →
kostan   (2004-10-21 04:10) [1]

наверно надо сначала создать на форме
процедуру ButtonOkOnClick  (щелкнув на событии OnClick компонента ButtonOk )
видимо у вас просто ее нет!

---

← →
Валерий   (2004-10-21 04:22) [2]

>сначала создать на форме
>процедуру ButtonOkOnClick  (щелкнув на событии OnClick
>компонента ButtonOk )видимо у вас просто ее нет!

В том то и дело что есть. И обработчик написан.
В редакторе свойств событие ButtonOk.Click можно назначить для события другого компонента, а если так написать в коде то выдает ошибку.

---

← →
kostan   (2004-10-21 04:41) [3]

че то не понял :
тогда надо нетак   if Key = VK_RETURN then ButtonOk.Click;
а наверно так  if Key = VK_RETURN then ButtonOkOnClick;
так как  ButtonOk.Click это событие а  ButtonOkOnClick процедура
ответа на него;

---

← →
Валерий   (2004-10-21 05:23) [4]

>тогда надо нетак   if Key = VK_RETURN then ButtonOk.Click;
>а наверно так  if Key = VK_RETURN then ButtonOkOnClick;

Пишет: [Error] Unit1.pas(60): Not enough actual parameters

---

← →
ЮЮ ©   (2004-10-21 05:45) [5]

ButtonOkOnClick(ButtonOk)
ButtonOkOnClick(Edit1)
ButtonOkOnClick(nil)
 в зависимости от того учитывается ли (и как) параметр Sender в процедуре ButtonOkOnClick

---

← →
Валерий   (2004-10-21 05:49) [6]

>[5] ЮЮ ©   (21.10.04 05:45)

Спасибо.

---

← →
VMcL ©   (2004-10-21 07:55) [7]

>>Валерий  (21.10.04 03:57)

Какой тип ButtonOk?

---

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

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



Память: 0.46 MB
Время: 0.041 c