|
En el Evento KeyPress pones un filtro para que solo se puedean digitar los valores deseados.
Aqui va un ejemplo
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8]) then key:=#0;
end;
En el ejemplo solo te permite los caracteres del 0 al 9 el el #8 que es el retroceso.
|