|
procedure TForm1.edit1keypress(Sender: TObject; var Key: Char);
begin
if not(Upcase(Key) in[#8,#32,{'0'..'9'}'A'..'Z','a'..'z','Ñ','ñ']) then
begin
Key:= #0;
end;
end;
este es el codigo que utilizo para validar el ingreso de numero , lo que me faltaria es como dentro de ese if valido que si no ingresa nada no pueda avanzar al sigueinte ... probe de una forma no me deja avanzar pero me habilita los numeros
gracias
|