Tema
:
Validar un TEdit
Ver Mensaje Individual
#
6
06-07-2007
darcan01
Registrado
Registrado
: jul 2007
Posts
: 1
Reputación
:
0
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['A'..'Z','a'..'z',#8,#13,#32 ]) then key:=#0; //para que permitas el BackSpace y el Enter y el espaciador
end;
darcan01
Ver Perfil
Encontrar Todos los Mensajes de darcan01