Tema
:
Validar un TEdit
Ver Mensaje Individual
#
3
05-07-2007
Jose Roman
Miembro
Registrado
: jul 2006
Ubicación
: Colombia
Posts
: 361
Reputación
:
18
Ensaya este..
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['A'..'Z','a'..'z']) then key:=#0;
end;
Jose Roman
Ver Perfil
Encontrar Todos los Mensajes de Jose Roman