| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Запрет ввода
Серый © (2006-12-26 22:16:00)Как в StringGrid организовать запрет ввода всех символов кроме цифр и точки?
Сергей М. (2006-12-27 09:26:00) [1]
> Серый © (26.12.06 22:16)
Что будешь делать вот с таким
789.54752...54..045587
?
Как видишь, в строке присутствуют только цифровые символы и символы точки, т.е. изначальное твое условие неукоснительно соблюдено.
Джо (2006-12-26 22:38:00) [2]> [0] Серый © (26.12.06 22:16)
> Как в StringGrid организовать запрет ввода всех символов
> кроме цифр и точки?
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
const
AllowedSymbols: TSysCharSet = ['0'..'9','.',#8];
begin
if not (Key in AllowedSymbols) then
Key := #0
end;
Джо (2006-12-26 22:38:00) [3]+ можно поколдовать с маской ввода в событии OnGetEditMask, но это на любителя.
| |
