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

Вниз

перемещение между TEdit ами по нажатию Enter   Найти похожие ветки 

← →
AndrewPo ©   (2003-10-08 11:51) [0]

Добрый день,
подскажите, как сделать, чтоб при нажатии Enter внутрях TEdit"а фокус перемещался к следующему по порядку TEdit"у?

---

← →
bon   (2003-10-08 12:07) [1]

на событие TEdit1
if key=13 then Edit2.SetFocus;

---

← →
ZEE ©   (2003-10-08 12:13) [2]

>bon (08.10.03 12:07) [1]
>на событие TEdit1
наверно на событие KeyDown или KeyUp ...

---

← →
bon   (2003-10-08 12:21) [3]

>ZEE © (08.10.03 12:13) [2]
>наверно на событие KeyDown или KeyUp ...

без разницы

---

← →
ZEE ©   (2003-10-08 12:30) [4]

> bon (08.10.03 12:21) [3]
> без разницы
без разницы - что?
"на событие TEdit1" - нет такого события

---

← →
bon   (2003-10-08 12:37) [5]

>ZEE © (08.10.03 12:30) [4]
>без разницы - что?
>"на событие TEdit1" - нет такого события

KeyDown или KeyUp ...

---

← →
Developerr ©   (2003-10-08 13:05) [6]

В событии OnKeyDown пишешь

SelectNext((Sender as TWinControl),true,true);

---

← →
Developerr ©   (2003-10-08 13:07) [7]

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_RETURN then
SelectNext((Sender as TWinControl),true,true);
end;

---

← →
ZEE ©   (2003-10-08 13:08) [8]

>bon (08.10.03 12:21) [3]
>без разницы
+
>bon (08.10.03 12:37) [5]
>KeyDown или KeyUp ...
есть разница - по KeyDown будет бегать по всем эдитам пока не отпустишь клавишу, а по KeyUp - перепрыгнет только один раз при отпускании...

---

← →
AndrewPo ©   (2003-10-08 16:53) [9]

большое спасибо всем :)

Администрации: можете удалять эту ветку :)

---

← →
satron   (2003-10-08 17:02) [10]

все хорошо, только при нажатии Ентер в Едите винда издает звуки, ........не проблема конечно, но..... не красиво, как быть в этой ситуации ?????

---

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

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

Наверх

Память: 0.48 MB
Время: 0.015 c