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

Вниз

Возможно ли отменить ввод текстовой информации в текст. поле   Найти похожие ветки 

← →
Roman_ln ©   (2006-12-06 18:36) [0]

Соответственно вводить только цифры .Как?

---

← →
alex810 ©   (2006-12-06 18:42) [1]


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
"0".."9": ;
#8 : ;
".":;
else Key :=Chr(0);
end;
end;

Для едита.

---

← →
Roman_ln ©   (2006-12-06 18:43) [2]

спасиб

---

← →
AlexWlad ©   (2006-12-06 19:39) [3]

ПыСы : у формы свойство KeyPreview выставить в True обязательно.

---

← →
Loginov Dmitry ©   (2006-12-06 19:40) [4]

от Ctrl+V все равно не спасет

---

← →
DVM ©   (2006-12-07 10:12) [5]

> ПыСы : у формы свойство KeyPreview выставить в True обязательно.

Зачем в данном случае?

---

← →
Palladin ©   (2006-12-07 10:15) [6]

Шобы былО!

---

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

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

Наверх

Память: 0.47 MB
Время: 0.054 c