Скачать: 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 вся ветка

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



Память: 0.45 MB
Время: 0.011 c