SHPORA.net :: PDA

[ Back ]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if not(key in ['0'..'9']) then key:=#27; разрешает ввод только цифр в ином случае нажимается клавиша с кодом 27 (esc)

end;