![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 11.03.2013
Сообщений: 14
|
![]()
Как сделать так, чтобы в (edit) можно было ВСТАВЛЯТЬ только
['0'..'9','+','-',',',#8]. |
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 11.03.2011
Сообщений: 426
|
![]()
обрабатывайте событие OnChange
|
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 11.03.2013
Сообщений: 14
|
![]() |
![]() |
![]() |
![]() |
#4 |
Пользователь
Регистрация: 11.03.2013
Сообщений: 14
|
![]()
Вот код если кого интересует.
'procedure TForm1.Edit1Change(Sender: TObject); var i: integer; str: string; begin str:=''; for i:=1 to Length(Edit1.Text) do case Edit1.Text[i] of '0'..'9', '+', '-', ',', #8: str:= str + Edit1.Text[i]; end; { case } Edit1.Text:= str; Edit1.SelStart:= Length(Edit1.Text); end;' |
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 24.01.2013
Сообщений: 67
|
![]() Код:
событие KeyPress. |
![]() |
![]() |
![]() |
Опции темы | Поиск в этой теме |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Отлавливать сообщения от Рунтайм созданных компонентов формы | 100GRamm | Общие вопросы Delphi | 2 | 09.10.2011 15:56 |
Как отловить событие wm_paste? | Romanych007 | Помощь студентам | 1 | 10.07.2010 20:42 |
Сообщение... | KoBRaAndrey | Общие вопросы Delphi | 8 | 02.10.2009 18:56 |
Можно ли отлавливать событие потери фокуса Control'ом | tolikman | Microsoft Office Excel | 2 | 09.01.2009 15:02 |