Текущий архив: 2003.11.13;
Скачать: CL | DM;

Вниз

Табуляция по клавише 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 )

---

← →
Sandman25   (2003-11-04 17:09) [6]

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

ActiveControl

---

← →
Delph   (2003-11-04 17:21) [7]

Заработало.


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



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

---

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

Текущий архив: 2003.11.13;
Скачать: CL | DM;

Наверх

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