Existen muchas formas. Cuando he querido que en un TEDIT sólo se introduzca un valor numérico (0 a 9) siempre he empleado este código:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9', char(VK_BACK)]) then
begin
key := #0;
messageBeep(0); // un pitido para indicar que no se ha introducido un carácter válido
end;
end;
|