Как по нажатию на ENTER сделать переход с DBEditEh1 на DBEditEh2

← →
Jony (2001-12-25 09:26) [0]

Из форума узнал, что переход между DBEdit по Enter как по Tab можно организовать следующим образом:

procedure Form1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_RETURN then begin
Perform(WM_NEXTDLGCTL, 0, 0);
Key:=0;
end;
end;

Очень удобно. А вот для DBEditEh такой номер не проходит. Почему? И что нужно сделать, чтобы прошло?

← →
knyaz17 (2001-12-25 10:44) [1]

Помоему в OptionsEh есть опция EnterAsTab.

← →
Jony (2001-12-25 10:49) [2]

В DBGridEh - есть, а в DBEditEh - нет.

← →
Desdechado (2001-12-25 13:25) [3]

попробуй (не проверял)
if Key=VK_RETURN then Key:=VK_TAB;

← →
Jony (2001-12-25 13:49) [4]

>Desdechado
Большое спасибо!
Пошло в связке

if Key=VK_RETURN then begin
Perform(WM_NEXTDLGCTL, 0, 0);
Key:=VK_TAB;
end;

Хотя внутри блока можно операторы поменять местами - эффект тот-же.

← →
alina (2001-12-26 12:14) [5]

procedure TEditLagerForm.PasportEditKeyPress(Sender: TObject;
var Key: Char);
begin
if key = #13 then DBEdit2.SetFocus;
end;

← →
Jony (2001-12-26 13:22) [6]

>alina
Можно и так, но если изменится последовательность расположения DBEdit на форме, то придется переписывать код. А выше предлагаемык варианты автоматически отследивают порядок элементов, уствновленный в TabOrder. Согласись, что это более удобно и именно это мне нужно было.
Все равно, спасибо.

Как по нажатию на ENTER сделать переход с DBEditEh1 на DBEditEh2 Найти похожие ветки