SoloCodigo

Programación General => C/C++ => C++ Builder => Mensaje iniciado por: Skay810 en Domingo 29 de Mayo de 2005, 02:12

Título: Edit1-text
Publicado por: Skay810 en Domingo 29 de Mayo de 2005, 02:12
buenas ... quisiera saber como hacer para que en el texto de un Edit se puedan ingresar solo enteros ... me parece que había una forma de poner una "máscara" en una propiedad, pero no me acuerdo y no encuentro como se hace, si hay otra forma, es bienvenida

Muchas Gracias
Título: Re: Edit1-text
Publicado por: Linspire en Domingo 29 de Mayo de 2005, 18:02
Personalmente detesto usar un MaskEdit por lo tedioso del manejo, por ello he diseñado y modificado lo siguiente (en el evento OnKeyPress del Edit):

void __fastcall TForm2::Edit1KeyPress(TObject *Sender, char &Key)
{
       int caracter;
       caracter=Key;
       if((caracter>='a')&&(caracter<='z'))
        {
               tecla=0;
        }
       if((caracter>=48)&&(caracter<=57))
        {
                Key=caracter;
        }
      switch(caracter)
        {

                case 39:caracter=NULL;
                break;
                case -70:caracter=NULL;
                break;
                case 33:caracter=NULL;
                break;
                case 34:caracter=NULL;
                break;
                case -73:caracter=NULL;
                break;
                case 36:caracter=NULL;
                break;
                case 37:caracter=NULL;
                break;
                case 38:caracter=NULL;
                break;
                case 47:caracter=NULL;
                break;
                case 40:caracter=NULL;
                break;
                case 41:caracter=NULL;
                break;
                case 61:caracter=NULL;
                break;
                case 63:caracter=NULL;
                break;
                case -65:caracter=NULL;
                break;
                case -95:caracter=NULL;
                break;
                case 43:caracter=NULL;
                break;
                case -25:caracter=NULL;
                break;
                case 96:caracter=NULL;
                break;
                case 45:caracter=NULL;
                break;
                case 42:caracter=NULL;
                break;
                case 44:caracter=NULL;
                break;
                case 46:caracter=NULL;
                break;
                case 58:caracter=NULL;
                break;
                case 59:caracter=NULL;
                break;
                case 125:caracter=NULL;
                break;
                case 123:caracter=NULL;
                break;
        }
        Key=caracter;

}
//---------------------------------------------------------------------------

Este codigo también te elimina los caracteres especiales como son el +, el ., el *, etc. Supongo que podrás quitarle esto si no te es útil.

Hasta pronto. :comp:
Título: Re: Edit1-text
Publicado por: Skay810 en Lunes 30 de Mayo de 2005, 06:55
MUCHAS GRACIAS Linspire, es la solución que pensaba usar y me has facilitado el código  :D , me viene de 10 !!

Gracias por la pronta respuesta
Saludos !!
Título: Re: Edit1-text
Publicado por: Linspire en Lunes 30 de Mayo de 2005, 08:35
No me agradezcas, creo que debemos ayudarnos mutuamente entre programadores, y no te preocupes, soy un usuario activo de internet (pero no un ñoño, por supuesto), excepto cuando estoy de vacaciones. :D