Форум: "Основная";
Текущий архив: 2003.12.19;
Скачать: [xml.tar.bz2];

Вниз

Как убрать сигнал при обработке 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;
Скачать: [xml.tar.bz2];

Наверх

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