|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
|||
|
|||
Мы вроде обсуждали, что этот обработчик назначается всем эдитам.
Только в коде замени Edit1 на просто Edit из моего предыдущего примера. Еще можно выставить свойство KeyPreview := True у формы и поставить этот код в OnKeyPress формы. Только тогда надо найти общий компонент для компонентов. В описании там TWinControl. |
#17
|
|||
|
|||
Цитата:
|
#18
|
||||
|
||||
Код:
procedure Tfm_main.FormKeyPress(Sender: TObject; var Key: Char); begin if (Key = #13) then begin Key := #0; Perform(WM_NEXTDLGCTL,0,0); end; end; Последний раз редактировалось Guaho, 22.08.2019 в 19:06. |
#19
|
|||
|
|||
Цитата:
|
#20
|
|||
|
|||
Не, нельзя. Код принимает только точку. А вот с точки начать можно. Ну так дополни проверки. Вообще, если очень лень, то можно просто попробовать конвертировать текст в число в OnExit и не заморачиваться с обработкой одиночных нажатий.
|