|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.06.2007, 13:53 | #1 |
Форумчанин
Регистрация: 11.04.2007
Сообщений: 106
|
про код...
Господа, подскажите, пож., что примерно может означать этот код?
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not((key>='0') and (key<='9') or ( key=#8) or (key=#44) or (key=#18)) then key:=Chr(0); end; спасибо! |
08.06.2007, 14:10 | #2 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
В компноненте Edit1
Разрешено вводить только цифры и запятую, и пользоваться БэкСпэйсом.
Life is too short, play more...
Как правильно задавать вопросы |