procedure TLogs.Edit2Change(Sender: TObject);
begin
end;
Только цифры в Edit |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
Только цифры в Edit |
Tan |
Сообщение
#1
|
Профи Группа: Пользователи Сообщений: 559 Пол: Мужской Реальное имя: Бруно Репутация: 10 |
Хотелось бы поинтересоваться как в делфи сделать так чтобы в компонент Edit можно было бы вводить только цифры. В паскале делал через ОРД но не знаю как тут это всё дело связать с
procedure TLogs.Edit2Change(Sender: TObject); -------------------- Цитата Imagination is more important than knowledge. Albert Einstein |
kominet |
Сообщение
#2
|
Новичок Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: Николай Репутация: 0 |
Код procedure TADDVacancy.MinPayEditKeyPress(Sender: TObject; var Key: Char); begin if not(Key in ['0'..'9']) then Key:=#0; end; вот если так пропимано то при нажатии на бекспэйс ничего не происходит..... всё сам уже нашёлююю нужно #8 добавть ...if not(Key in ['0'..'9',#8]) then... Сообщение отредактировано: kominet - |
Текстовая версия | 29.04.2024 6:44 |