Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TEdit [D5, Win95/98]


Alex Y ©   (2002-06-24 11:23:00) 

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

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


ef2000   (2002-06-24 11:44:00) [1]


>
> Alex Y

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


Song   (2002-06-24 11:40:00) [2]

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


Kaban   (2002-06-24 11:38:00) [3]

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


Кулюкин Олег   (2002-06-24 11:38:00) [4]

TWinControl.FindNextControl


kull   (2002-06-24 11:34:00) [5]

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

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


Kaban   (2002-06-24 11:28:00) [6]

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


tovSuhov   (2002-06-24 11:26:00) [7]

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


MBo   (2002-06-24 11:25:00) [8]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо