Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

"Поймать" и обработать Enter [D7, WinXP]


Caridi ©   (2005-07-14 13:44:00) 

На форме есть компоненты 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!!!) всё работает. Что не так?


Fay   (2005-07-14 16:22:00) [1]

Caridi ©   (14.07.05 16:04) [7]
Ясно.


Fay   (2005-07-14 16:22:00) [2]

Ясно. Всегда подалуйста.


Caridi   (2005-07-14 16:04:00) [3]

Получилось. Огромное спасибо.


Caridi   (2005-07-14 16:04:00) [4]

Получилось. Спасибо.


Fay   (2005-07-14 15:48:00) [5]

Caridi ©   (14.07.05 15:45) [4]
SetFocus ?


Caridi   (2005-07-14 15:45:00) [6]

Вопрос в тему. Как можно назначить переход к конкретному компоненту?


Caridi   (2005-07-14 15:43:00) [7]

Спасибо, wertolet!
И огромное спасибо ANB!!!
Была кнопка...


ANB   (2005-07-14 15:17:00) [8]

Значит Enter уже кем то перехвачен. Кнопок с Default нету ?


wertolet   (2005-07-14 15:08:00) [9]

код рабочий


Наверх

Титульная страница Поиск, карта сайта Написать письмо