Запрет ввода

← →
Серый © (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, но это на любителя.

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

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

789.54752...54..045587

?

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

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