Как назначить 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]

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

Какой тип ButtonOk?

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