TEdit

← →
Alex Y © (2002-06-24 11:23) [0]

Подскажите как мне при достижении конца TEdit-а генерировать событие, вызываемое нажатием Tab и наоборот по достижении начала - Shift+Tab

Заранее благодарен.

← →
MBo © (2002-06-24 11:25) [1]

>достижении конца TEdit
расшифруй

← →
tovSuhov © (2002-06-24 11:26) [2]

Ответ заключен в вопросе...

← →
Kaban © (2002-06-24 11:28) [3]

Ну начала это понятно: SelStart = 0
А вот конца, может имелось в виду
Length(Edit1.Text) = Edit1.MaxLength

← →
kull © (2002-06-24 11:34) [4]

Ну че бадягу разводите?
Понятно же.
Это что-то похожее на то когда серийный номер вводишь: ввел 4 символа на следующий Edit перескакиваешь и т.д.

Лучше помогли бы человеку...

← →
Kaban © (2002-06-24 11:38) [5]

Кто бодягу то разводит. Просто вопрос наводит на мысль о том, что автор не понимает, что ему нужно. Вопросы надо научиться правильно задавать. Серийный номер это конечно похоже. Но если не то, а если еще и font не моноширинный.

TWinControl.FindNextControl

На TEdit.onKeyPress при условии длины равной нужной сделайте SelectNext() или Keybd_event()

← →
ef2000 (2002-06-24 11:44) [8]

>
> Alex Y

FindNextControl(ActiveControl,true,true,false); Tab
FindNextControl(ActiveControl,false,true,false); Shift+Tab

TEdit Найти похожие ветки