Validar Edit solo Texto

[[cHackAll]]

Empezado por cHackAll

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 (Sender as TEdit).ReadOnly := not (key in [#8, ' ', 'a'..'z', 'A'..'Z']); // Agregas los caracteres que necesites
end;

Así es! Sender es el objeto que produce el evento; si a todos los TEdits que tengas direccionas el evento indicado a la anterior funcion vale!

[Elite237]

Entiendo lo que me dices, ahora mi duda es otra...si escribo eso en todos los edit, lo que me hara sera que me acepte solo letras y no numeros..ok?, si es asi, no todos los edit que tengo tienen que tener esa restriccion, puesto que en otros me deben aceptar tanto numeros como letras...y en ese caso como quedaria?

Nose si me di a entender.

[axesys]

Checate este componente

http://www.programmersheaven.com/dow...1/ZipView.aspx

[Faust]

Alguna vez quise hacer algo así, pero desafortunadamente se pueden pegar caracteres no deseados, también debes evitar el pegado desde el teclado (ctrl + V) y desde el menú contextual que aparece en el Edit.

Saludos...

[Elite237]

Ok..Gracias por todos sus sugerencias....Por lo pronto estoy validando cada edit, me sirve de practica, a parte necesito terminarlo para este lunes...De todas formas gracias