08.06.2009, 02:33
|
|
Познающий
Регистрация: 12.05.2009
Сообщений: 45
С нами:
8946396
Репутация:
28
|
|
Сообщение от blednii
Нето немножко, необходимо чтоб вводились только цифры
Понял что имеетсо =)
в евенте эдита:
Код:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key<'0') or (Key>'9') then Key:=chr(0);
end;
Чуть не забыл, держи с бекспейсом: if ((Key<'0') or (Key>'9')) and (ord(Key)<>8) then Key:=chr(0); 
Последний раз редактировалось МongBa†; 08.06.2009 в 02:45..
|
|
|