28.09.2009, 20:39
|
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,105
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
|
|
Код:
procedure TForm1.Edit1KeyPress(Sender : TObject; var Key : Char)
begin
If Not (Key In ['0'..'9']) Then Key := #0;
end;
пропустит только цифры.
|