Как перейти с одного 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

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

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