Разрешить ввод только определеных клавиш

[serres]

Как разрешить ввод тока определеных клавишь?
В моем случае надо разрешить ввод только цифор с клавиатуры

[Artem]

Используй MaskEdit

[Sibedir]

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

[Terran]

Вот простой пример:

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


begin


// Key — символ, соответствующий нажатой клавише.


// Если символ недопустимый, то процедура заменяет его


// на символ с кодом 0. В результате этого символ в поле


// редактирования не появляется, и у пользователя создается


// впечатление, что программа не реагирует на нажатие некоторых


// клавиш.


case Key of


'0'..'9': ; // цифра


#8 : ; // клавиша <Back Space>


#13 : Edit2.SetFocus ; // клавиша <Enter>

// остальные символы — запрещены

else Key :=Chr(0); // символ не отображать

end;

end;

С уважением Terran!