Скачать: 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 вся ветка

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



Память: 0.46 MB
Время: 0.058 c