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

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

Как перейти с одного Edit в другое нажатием Enter? [D5, WinXP]

dido ©   (2004-06-16 23:32:00) 

После ввода числа в Edit требуется перейти в другое Edit для
ввода следующего числа. Можно перейти пользуясь мышкой, можно
клавишей Tab, а как это сделать клавишей Enter?

---

sniknik   (2004-06-17 00:49:00) [1]

универсально для всех едитов формы, процедура на форму кейпревиев должен быть включен
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
 if (Key = #13) then begin
   Key:=#0;
   Perform(WM_NEXTDLGCTL,0,0);
 end;
end;

---

Delphin   (2004-06-16 23:36:00) [2]

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
If Key=Vk_Return
Then Edit2.SetFocus;
end;

end.

---

Snap   (2004-06-16 23:36:00) [3]

OnKeyPress
внутри сравниваешь входной параметр с кодом клавиши ентер. Код- VK_Enter или VK_RETURN

---

YurikGL   (2004-06-16 23:35:00) [4]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then ActiveControl:=edit2;
end;

---

Наверх