Ver Mensaje Individual
  #1  
Antiguo 24-07-2013
alquimista alquimista is offline
Miembro
 
Registrado: ene 2008
Posts: 203
Reputación: 17
alquimista Va por buen camino
TEdit primer digito no sea número

Muy buenas...

¿Cual seria el mejor sitio (evento o método) para comprobar que el primer dígito de un Tedit no sea un número?
He puesto en el keypress que solo sean caractereres alfanumericos.

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['A'..'Z','a'..'z','0'..'9','e','E','.','-','+','_',#8]) then Key:=#0;
end;
Responder Con Cita