|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.03.2013, 19:11 | #1 |
Пользователь
Регистрация: 11.03.2013
Сообщений: 14
|
Отлавливать сообщение WM_PASTE
Как сделать так, чтобы в (edit) можно было ВСТАВЛЯТЬ только
['0'..'9','+','-',',',#8]. |
15.03.2013, 19:44 | #2 |
Форумчанин
Регистрация: 11.03.2011
Сообщений: 426
|
обрабатывайте событие OnChange
|
15.03.2013, 20:09 | #3 |
Пользователь
Регистрация: 11.03.2013
Сообщений: 14
|
|
16.03.2013, 14:26 | #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;' |
16.03.2013, 16:43 | #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 |