[[José Luis Garcí]]

Pues eso acabo de subir al Ftp del Club mi nuevo Componente TeditDefault, en el Zip eSta el componente y una breve descripción de las propiedades, aqui os pongo la cabecera del mismo

Código Delphi [-]
//****************************************************************************************************  **********
//  EditDefault                                          06/02/2011
//
//
//  Este es un componente tEdit, con formatos predefinidos, control de teclas y texto por defecto, color del entrada
//  y salida del foco, etc
//
//--------------------------------------------------------------------------------------------------------------
// idea Original de J.L.G.T. aunque como siempre he copiado código de otros compañeros, como es el caso del
//  xmail que es de una idea de Eduarcol, la función de la ip que es bajada de internet, más abajo pongo la página
//
// Como todos mis componentes, puedes usarlo gratuitamente sin restricciones de ningún tipo
//--------------------------------------------------------------------------------------------------------------
//
// Propiedades
//
//  FTypes:           TTypes;     //Tipos de datos en el Edit
//Los tipos son
//  ==========================================
//    xText            //Tipo Texto sin mascara
//    xNumber          //Tipo Integer sin mascara
//    xNumberFormat    //Tipo Integer mascara    ###,###,##0              0
//    Xmoney           //Tipo Real mascara     $ ###,###,##0.00         $ 0.00
//    xReal            //Tipo Real mascara       ###,###,##0.00           0.00
//    xDate            //Tipo Date mascara             dd/mm/yy       12/12/00
//    xTime            //Tipo Time mascara             hh:mm          12:20
//    xEmail           //Tipo Text sin mascara
//    xPhone           //Tipo Text mascara       (000) 000 000
//    xIp              //Tipo Text sin mascara
//    xPor             //Tipo Text mascara    ###,###,##0.00%        Porcentajes
//  ==========================================
//  FTextDefault:     String;     //Texto por defecto
//  FMask:            String;     //Mascara según el tipo
//  FTextWithMask:    String;     //Texto Enmascarado
//  FMyNumber:        Integer;    //Valor integer del Text si Types es xNumber
//  FMyReal:          Real;       //Valor Real del Text  si Types es xReal
//  FMyDate:          TDate;      //Valor Date del Text  si Types es xDate
//  FMyTime:          TTime;      //Valor Time del Text  si Types es xTime
//  FDefaultSystem:   Boolean;    //USa texto por defecto, Ejemplo xFecha= now
//  FColorOn:         Tcolor;     //Color al entrar en el  componente, al salir
//                                DEvuelve el color por el de la propiedad ColorOff
//  FColorOff:        Tcolor;     //Color al salir del componente
//  FKeysDefault:     Boolean;    //Usar teclas pre establecidas según Types por defecto
//                                Teclas  UP (Aumentar) an DOWN (disminuir)
//  FDifNumber:       Integer;    //PAra aumentos y disminución de xNumber,xNumberFormat, xDate (día), xTime (minutos)
//  FDifReal:         Real;       //Para aumentos y dismuinuciones de xReal,xPor  (en ambos los decimales)             -Limite maximo 100
//  FAutoRefillx:     Boolean;    //Al entrar si no tiene valor, da un valor por defecto por ejemplo en xdate,xtime sería now
//
//****************************************************************************************************  ***********