Текущий архив: 2003.12.19;
Скачать: CL | DM;

Вниз

Как убрать сигнал при обработке 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;

---

← →
smu ©   (2003-12-08 12:02) [2]

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

---

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

Текущий архив: 2003.12.19;
Скачать: CL | DM;

Наверх

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