Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.01.21;
Скачать: CL | DM;

Вниз

Запрет ввода   Найти похожие ветки 

 
Серый ©   (2006-12-26 22:16) [0]

Как в StringGrid организовать запрет ввода всех символов кроме цифр и точки?


 
Джо ©   (2006-12-26 22:38) [1]

> [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) [2]

+ можно поколдовать с маской ввода в событии OnGetEditMask, но это на любителя.


 
Сергей М. ©   (2006-12-27 09:26) [3]


> Серый ©   (26.12.06 22:16)


Что будешь делать вот с таким

789.54752...54..045587

?

Как видишь, в строке присутствуют только цифровые символы и символы точки, т.е. изначальное твое условие неукоснительно соблюдено.



Страницы: 1 вся ветка

Текущий архив: 2007.01.21;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.033 c
6-1156377385
dexer
2006-08-24 03:56
2007.01.21
Как передать файл, от ServerSockets к ClientSockets


15-1167402048
Piroxyline
2006-12-29 17:20
2007.01.21
Эт как?


15-1167762741
Che_gevaro
2007-01-02 21:32
2007.01.21
Компонет для проигрывания Gif-анимации


15-1167410718
Gero
2006-12-29 19:45
2007.01.21
Песни в хорошем качестве


4-1157525047
imp
2006-09-06 10:44
2007.01.21
Свойства принтера