Delphi - URGE!: SOLO acepte LETRAS en TEdit

 
Vista:

URGE!: SOLO acepte LETRAS en TEdit

Publicado por Alfredo (4 intervenciones) el 05/02/2007 11:38:05
Hola.
Quisiera saber como permitir al usuario que solo introduzca letras y espacio en un TEdit.
He visto algunos codigos en el foro pero no funciona, es decir, compilan y al ejecutarlo sigue pudiendo escribir números el usuario.
Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:URGE!: SOLO acepte LETRAS en TEdit

Publicado por BJG (27 intervenciones) el 05/02/2007 14:16:18
Hola, mira lo que podes hacer medio a pata nomas es: en el evento OnChange del TEdit usa por ejemplo la funcion StrToFloat para hacer StrToFloat(Edit1.Text) luego captura la exepcion que lanza esta funcion, asi vas a saber si estas ingresando un numero o una letra. Luego manejala con un if para mostrar un mensaje de error en el caso que ingrese un numero.

Es solo una opcion.

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:URGE!: SOLO acepte LETRAS en TEdit

Publicado por nombre (106 intervenciones) el 05/02/2007 16:07:25
En el evento OnKeyPress del edit pon esto

if not (key in ['a'..'z','A'..'Z',' ', #7, #8, #13]) then
begin
Key := #0;
end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar