procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', #8]) then Key := #0;
end;
Как сделать так чтобы в Edit....
Как сделать так чтобы в Edit поставить запрет на ввод букв, т.е. чтобы вводились только цифры.
Цитата: Webster
Как сделать так чтобы в Edit поставить запрет на ввод букв, т.е. чтобы вводились только цифры.
Код:
Отрывок кода из ранее обсуждавшихся тем...
в keypress своего edit'a пиши следующее:
--------------
case key of
// разрешённые символы
'0'..'9',',':;// разрешены цифры и запятая
#8, #13, #32:;// #8 - это backspase, #13 - enter, #32 - пробел
else
key:=char(0);// все остальные символы запрещены
end;
--------------
case key of
// разрешённые символы
'0'..'9',',':;// разрешены цифры и запятая
#8, #13, #32:;// #8 - это backspase, #13 - enter, #32 - пробел
else
key:=char(0);// все остальные символы запрещены
end;