【delphi开源代码栏目提醒】：本文主要为网学会员提供JEdit.pas，希望对需要JEdit.pas网友有所帮助，学习一下!

    unit JEdit;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      StdCtrls, Mask, DBCtrls,
      SYSSTR, JEDITM, JEDITL;
    
    
    type
      TEDITtype = (EDIT,EDATE_EDIT,CDATE_EDIT,TIME_EDIT,INTEGER_EDIT,FLOAT_EDIT);
      TSHOWCAL  = (NONE,CCAL,LCAL,ECAL);
    
      TJEdit = class(TEdit)
      private
        FDigits : byte;
        FMin,FMax    : extended;
        fdec         : char;
        Fertext      : string;
        foldval      : extended;
    
        FEDITtype: TEDITType;
        FSHOWCAL : TSHOWCAL;
        FBADINPUT: BOOLEAN;
        FLONGTIME: BOOLEAN;
    //    FVALUE   : EXTENDED;
    //    FOnExit       : TNotifyEvent;
      protected
        procedure setvalue(Newvalue : extended);
        function  getvalue : extended;
        procedure setdigits(Newvalue : byte);
        procedure setmin(Newvalue : extended);
        procedure setmax(Newvalue : extended);
        procedure KeyPress(var Key: Char); override;
        procedure KeyDown(var Key: Word; Shift: TShiftState); override;
        procedure KeyUP(var Key: Word; Shift: TShiftState); override;
      public
        FUNCTION  CALL_FMSTR():STRING;
        procedure doEnter;override;
        procedure DoExit; override;
        constructor create (aowner : TComponent);override;
        destructor Destroy; override;
      published
        property Digits   : byte read FDigits write setDigits;
        property Value    : extended read getvalue write setValue;
        property Min : extended read Fmin write setMin;
        property Max : extended read Fmax write setmax;
    
        property _EditType: TEDITType read FEDITType write FEDITType;
        property _SHOWCAL : TSHOWCAL  read FSHOWCAL  write FSHOWCAL;
        property _BADINPUT: BOOLEAN  read FBADINPUT  write FBADINPUT;
        property _LONGTIME: BOOLEAN  read FLONGTIME  write FLONGTIME;
    //    property OnExit : TNotifyEvent read FOnExit  write FOnExit;
      end;
    
    
      TJDBEdit = class(TDBEdit)
      private
        FEDITtype: TEDITType;
        FSHOWCAL : TSHOWCAL;
    //    FOnExit       : TNotifyEvent;
      protected
        PROCEDURE CHANGE; override;
        procedure KeyDown(var Key: Word; Shift: TShiftState); override;
        procedure KeyUP(var Key: Word; Shift: TShiftState); override;
      public
        FUNCTION  CALL_FMSTR():STRING;
        procedure doEnter;override;
        procedure DoExit; override;
        constructor create (aowner : TComponent);override;
        destructor Destroy; override;
      published
        property _EditType: TEDITType read FEDITType write FEDITType;
        property _SHOWCAL : TSHOWCAL  read FSHOWCAL  write FSHOWCAL;
    //    property OnExit : TNotifyEvent read FOnExit  write FOnExit;
      end;
    
    const
        notext       = '[No Text]';
    
        LB_MESSAGE_EDATE_EDIT = '请输入英文日期格式'+#10#13+
                                '例: 1995/3/2      '+#10#13+
                                '例: 2001/10/25    '+#10#13;
        LB_MESSAGE_CDATE_EDIT = '请输入中文日期格式'+#10#13+
    //                            '例:  89-03-02  共8位'+#10#13+
                                '例: 1999-01-25 共10位'+#10#13;
        LB_MESSAGE_TIME_EDIT  = '请输入时间格式    '+#10#13+
                                '例:  08:25   共5位'+#10#13+
                                '例:  21:15   共5位'+#10#13;
        LB_MESSAGE_INTEGER_EDIT = '请输入整数格式  '+#10#13+
                                '例:  100086       '+#10#13+
                                '例:      25       '+#10#13;
        LB_MESSAGE_FLOAT_EDIT = '请输入含小数格式  '+#10#13+
                                '例:  25.562       '+#10#13+
                                '例: 85216.5       '+#10#13;
    
    procedure Register;
    
    implementation
    
    uses un_utl, FM_UTL;
    
    procedure Register;
    begin
      RegisterComponents('J_STD', [TJEdit]);
      RegisterComponents('J_STD', [TJDBEdit]);
    end;
    
    //==================================================================
    // EDIT= EDIT= EDIT= EDIT= EDIT= EDIT= EDIT= EDIT= EDIT= EDIT= EDIT=
    //==================================================================
    procedure TJedit.setvalue(Newvalue : extended);
    var tmp : string;
    begin
            if newvalue > fmax then begin
               if fertext <> notext then showmessage(fertext);
               newvalue := fmax;
            end;
            if newvalue < fmin then begin
               if fertext <> notext then showmessage(fertext);
               newvalue := fmin;
            end;
            tmp := floattostrf(newvalue,fffixed,18,fdigits);
            text:=tmp;
    end;
    
    function TJedit.getvalue : extended;
    var ts : string;
    begin
            IF _EDITTYPE = FLOAT_EDIT THEN
            IF CHECK_FLOATINT(TEXT) = FALSE THEN TEXT:= '0';
    
            ts := text;
            if (ts = '-') or (ts = fdec) or (ts = '') then ts := '0';
            try
               result := strtofloat(ts);
            except
               //if fertext <> notext then showmessage(fertext);
               result := fmin;
            end;
            if result < fmin then begin
               //if fertext <> notext then showmessage(fertext);
               result := fmin;
            end;
            if result > fmax then begin
               //if fertext <> notext then showmessage(fertext);
               result := fmax;
            end;
    end;
    
    procedure TJEDIT.setdigits;
    begin
         if fdigits <> newValue then begin
            if newvalue > 18 then newvalue := 18;
            fdigits := newvalue;
            setvalue(getvalue);
         end;
    end;
    
    procedure TJEDIT.setmin;
    begin
         if fmin <> newValue then begin
            if fmin > fmax then begin
        showmessage('Min-Value has to be less than or equal to Max-Value !');
               newvalue := fmax;
     end;
     fm