перемещение между 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]

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

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