Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 07-02-2013
CarlosAlberto CarlosAlberto is offline
Miembro
 
Registrado: Aug 2010
Posts: 78
Poder: 9
CarlosAlberto Va por buen camino
Escribir solo números en un edit

Estimados amigos del club: ¿cómo debo hacer para escribir sólo números en un "edit", es decir al teclear cualquier tecla que no sean números no escriba nada.
Muchas gracias
Saludos.
Carlos Alberto
Responder Con Cita
  #2  
Antiguo 07-02-2013
Avatar de TOPX
TOPX TOPX is offline
Miembro
 
Registrado: May 2008
Ubicación: Bogotá
Posts: 508
Poder: 11
TOPX Va camino a la fama
Vea -
__________________
"constructive mind, destructive thoughts"
Responder Con Cita
  #3  
Antiguo 07-02-2013
Avatar de oscarac
[oscarac] oscarac is offline
Miembro Premium
 
Registrado: Sep 2006
Ubicación: Lima - Perú
Posts: 1.755
Poder: 14
oscarac Va por buen camino
aqui puedes encontrar algo similar
__________________
Dulce Regalo que Satanas manda para mi.....
Responder Con Cita
  #4  
Antiguo 07-02-2013
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: Feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Poder: 15
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
CarlosAlberto,

Cita:
Empezado por CarlosAlberto
¿cómo debo hacer para escribir sólo números en un "edit"?
Revisa este código:
Código Delphi [-]
procedure TForm1.CheckNumberKey(Sender: TObject; var Key: Char);
begin

   If (Length(Edit1.Text) = 0) and (Key = ',') then
   begin
      Key := Chr(0);
      exit;
   end;

   if (Pos(',',Edit1.Text) <> 0) and (Key = ',') then
   begin
      Key := Chr(0);
      exit;
   end;

   // Solo permite ingresar caracteres númericos, coma y tecla de retroceso
   If not (Key in ['0'..'9',',',#8]) then Key := Chr(0);

end;
El código anterior solo permite ingresar caracteres numéricos, coma decimal y tecla de retroceso en un control TEdit por medio del evento OnKeyPress.

Espero sea útil

Nelson.

Última edición por nlsgarcia fecha: 07-02-2013 a las 19:06:35.
Responder Con Cita
  #5  
Antiguo 07-02-2013
Avatar de kapcomx
kapcomx kapcomx is offline
Miembro
 
Registrado: Jun 2007
Ubicación: Puebla México
Posts: 348
Poder: 12
kapcomx Va por buen camino
Xe2

si tienes XE2 solo tienes que poner en true la propiedad numbersonly

Saludos...
__________________
un tipo al cual la sociedad no le tiene el mas mínimo respeto no puede ser presidente....
Responder Con Cita
  #6  
Antiguo 08-02-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: Dec 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.120
Poder: 30
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Empezado por CarlosAlberto Ver Mensaje
¿cómo debo hacer para escribir sólo números en un "edit", es decir al teclear cualquier tecla que no sean números no escriba nada.
Hola Carlos.

Código Delphi [-]
procedure OnlyNumber(Sender: TWinControl);
begin
  SetWindowLong(Sender.Handle, GWL_STYLE,
    GetWindowLong(Sender.Handle, GWL_STYLE) + ES_NUMBER);
end;

Ejemplo de uso:
Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  OnlyNumber(Edit1);
  OnlyNumber(Memo1);
  ...
end;

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #7  
Antiguo 12-02-2013
CarlosAlberto CarlosAlberto is offline
Miembro
 
Registrado: Aug 2010
Posts: 78
Poder: 9
CarlosAlberto Va por buen camino
Escribir sólo números y la tecla enter

Estimados amigos del club:
Muchas gracias por las repuestas que me enviaron. Ahora quisiera poder presionar la tecla "Enter" además de los números y pasar al siguiente edit.
Gracias.
Saludos.
Responder Con Cita
  #8  
Antiguo 12-02-2013
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: Sep 2004
Ubicación: En algún lugar.
Posts: 28.584
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Preguntas distintas en hilos distintos, no olvides nuestra guía de estilo.
Y si haces una búsqueda... lo encontrarás más rápido, es algo que se ha tratado muchas veces.
Responder Con Cita
  #9  
Antiguo 05-08-2016
CarlosAlberto CarlosAlberto is offline
Miembro
 
Registrado: Aug 2010
Posts: 78
Poder: 9
CarlosAlberto Va por buen camino
Todo me ha servido.
Muchas Gracias.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Solo letras y numeros en edit oesteve OOP 30 28-06-2013 21:30:43
validar el ingreso a un Edit solo numeros jedinds OOP 25 24-09-2010 22:58:44
Escribir en un Edit números En Sud índice y superíndice gulder Varios 2 02-07-2008 04:05:58
Quiero al escribir en un dxDBGrid sólo números David OOP 11 18-06-2007 20:46:50
como hago que un edit solo entren numeros lazarous Varios 1 24-02-2005 14:56:22


La franja horaria es GMT +2. Ahora son las 02:32:43.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi