Как убрать сигнал при обработке KeyPress клавиши Enter?

← →
smu © (2003-12-08 11:38) [0]

Здравствуйте, суть проблемы такова: хочу чтобы по нажатию на Enter в TEdit автоматически нажималась кнопка OK.
Пишу
Procedure TfmLogin.edPasswKeyPress(Sender: TObject; var Key: Char); begin if Key=#13 then btOKClick(Self); end;
Все работает, только система почему-то всегда выдает сигнал (ошибка). Как этого избежать?

← →
alexnmsk (2003-12-08 11:58) [1]

if Key=#13 then
begin
btOKClick(Self);
Key:=#0;
end;

спасиба... работает...

Как убрать сигнал при обработке KeyPress клавиши Enter? Найти похожие ветки