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

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



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