F.A.Q.Pblog
1й год Форума программистов 2006-2007
Как ограничить вводимый текст в Edit? |
|
Мне нужно ограничить вводимый текст в Edit и при нажатие Enter перевод на кнопку.Пытался типа procedure tform1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then form1.Button1.SetFocus; if not ((Key >= '0') and (Key <='9') ) then Key := Chr(0); end; и case key of '0'..'9': key:=chr(0); end; Чето не получатся |
Просмотр ответов: |
| http://programmersforum.ru/showthread.php?t=2490 |
Другие вопросы:
Как сделать так чтоб моя прога при запуске ОС стартовала
Форма с тенью
Как организовать поиск интервала дат через SQL при условии, что начальная и конечная даты должны вводиться пользователем.
Выход из программы
Перемещение элементов в ListBox
<<<Назад Вперёд>>>