Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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


 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 11-05-2017
Avatar de look
look look is offline
Miembro
 
Registrado: sep 2007
Ubicación: Honduras-Altlantida-la Ceiba
Posts: 604
Poder: 11
look Va por buen camino
Edit monetario, solo numeros , limitar decimales.

Que tal amigos, tengo el siguiente codigo, este me permite ingresar solo numeros en un edit, algo asi : "99999.9999", lo que quiero es liminar la cantidad de decimales, y tambien agregar el simbolo de miles "," en la posicion correcta mientras se escribe en el edit...

Código Delphi [-]
    procedure TFrmMain.Edit1KeyPress(Sender: TObject; var Key: Char);
    begin
      if not (Key in [#8, '0'..'9', '-', '.']) then
      begin
        Key := #0;
      end
      else
      if ((Key = '.') or (Key = '-')) and (Pos(Key, (Sender as TEdit).Text) > 0) then
      begin
        Key := #0;
      end
      else
      if (Key = '-') and  ((Sender as TEdit).SelStart <> 0) then
      begin
        Key := #0;
      end;
     
    end;
__________________
all your base are belong to us
Responder Con Cita
 


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
Introducir sólo números en un edit CarlosAlberto Varios 8 05-08-2016 17:50:04
Solo letras y numeros en edit oesteve OOP 30 28-06-2013 21:30:43
TEdit, que admita sólo números con 2 decimales David OOP 5 09-02-2008 17:09:58
Labels con numeros de solo dos decimales Jucho69 OOP 2 19-01-2007 17:32:38
Ingresar sólo decimales en un Edit noeres Varios 10 06-12-2004 00:32:11


La franja horaria es GMT +2. Ahora son las 14:36:37.


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