Текущий архив: 2005.07.31;
Скачать: CL | DM;
Вниз
"Поймать" и обработать Enter Найти похожие ветки
← →
Caridi (2005-07-14 13:44) [0]На форме есть компоненты DBEdit. Надо, заполняя их, по клавише Enter переходить на следующий DBEdit.
procedure TForm2.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then begin
SelectNext(Sender as TWinControl, true, true);
Key := #0;
end;
Почему-то не получается. Если ставлю: "if Key = <> #13..." то при нажатии любой клавиши (кроме Enter!!!) всё работает. Что не так?
← →
wertolet (2005-07-14 15:08) [1]код рабочий
← →
ANB © (2005-07-14 15:17) [2]Значит Enter уже кем то перехвачен. Кнопок с Default нету ?
← →
Caridi © (2005-07-14 15:43) [3]Спасибо, wertolet!
И огромное спасибо ANB!!!
Была кнопка...
← →
Caridi © (2005-07-14 15:45) [4]Вопрос в тему. Как можно назначить переход к конкретному компоненту?
← →
Fay © (2005-07-14 15:48) [5]Caridi © (14.07.05 15:45) [4]
SetFocus ?
← →
Caridi © (2005-07-14 16:04) [6]Получилось. Огромное спасибо.
← →
Caridi © (2005-07-14 16:04) [7]Получилось. Спасибо.
← →
Fay © (2005-07-14 16:22) [8]Caridi © (14.07.05 16:04) [7]
Ясно.
← →
Fay © (2005-07-14 16:22) [9]Ясно. Всегда подалуйста.
Страницы: 1 вся ветка
Текущий архив: 2005.07.31;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.057 c
