Табуляция по клавише Enter

← →
Delph © (2003-11-04 16:45) [0]

На форме есть с десяток Edit - ов. Необходимо чтобы фокус ввода перескакивал по ним клавишей Enter (как Tab).
Кто чем может помочь?

← →
ZEE © (2003-11-04 16:52) [1]

В OnKeyPress у Edit"ов
if key=#13 then begin Edit2.SetFocus; key:=#0; end;
//вместо Edit2 - поставить нужный...

← →
Sandman25 © (2003-11-04 16:52) [2]

OnKeyDown

if Key = VK_RETURN then
Perform(WM_NEXTDLGCTL,0,0);

← →
Song © (2003-11-04 16:54) [3]

SelectNext() на onKeyDown формы. Не забудь у последней выставить KeyPreview

← →
zapped © (2003-11-04 17:06) [4]

2 ZEE © (04.11.03 16:52) [1]
и что, прикажете каждому TEdit писать свой обработчик? ;)

← →
Delph © (2003-11-04 17:07) [5]

>Song © (04.11.03 16:54) [3]
>SelectNext() на onKeyDown формы. Не забудь у последней >выставить KeyPreview
Спасибо, но несовсем ясно, что подставлять в качестве CurControl?
(Есть: Form1, Edit1...Edit212 )

> Спасибо, но несовсем ясно, что подставлять в качестве CurControl?

ActiveControl

Заработало.

if (Key=13) then SelectNext(ActiveControl,true,true);

Всем большое спасибо.

Табуляция по клавише Enter Найти похожие ветки