Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.038 c