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

Вниз

Ввод в Edit только цифр   Найти похожие ветки 

← →
diww   (2003-01-08 18:23) [0]

Как сделать чтобы в Edit можно было ввести только цифры?

---

← →
Delirium^.Tremens ©   (2003-01-08 18:23) [1]

use TMaskEdit (Additional)

---

← →
TTCustomDelphiMaster ©   (2003-01-08 18:51) [2]

SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);

---

← →
Maximus ©   (2003-01-08 19:41) [3]

Привет!..
Попробуй так:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in ["0".."9", DecimalSeparator]) then
Key := #0;
end;

Так TEdit будет воспринимать одни цифры и DecimalSeparator

---

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

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

Наверх

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