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

Как перейти с одного Edit в другое нажатием Enter?   Найти похожие ветки 

← →
dido   (2004-06-16 23:32) [0]

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

---

← →
YurikGL ©   (2004-06-16 23:35) [1]

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

---

← →
Delphin ©   (2004-06-16 23:36) [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) [3]

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

---

← →
sniknik ©   (2004-06-17 00:49) [4]

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

---

Страницы: 1 вся ветка

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



Память: 0.45 MB
Время: 0.029 c