TJvCustomValidateEdit

type TJvCustomValidateEdit = class(TCustomEdit)

protected

  function IsValidChar(); virtual;

  function MakeValid(); virtual;

  procedure Change; override;

  procedure DoEnter; override;

  procedure DoExit; override;

  function DoValidate();

  procedure Loaded; override;

  procedure KeyDown(); override;

  procedure KeyPress(); override;

  procedure KeyUp(); override;

  procedure WMPaste(); message;

  procedure DoEmptyValueEnter; virtual;

  procedure DoEmptyValueExit; virtual;

  property CheckChars: string; [rws]

  property TrimDecimals: Boolean; [rw]

  property DecimalPlaces: Cardinal; [rw]

  property DisplayFormat: TJvValidateEditDisplayFormat; [rw]

  property EditText: string; [rw]

  property HasMaxValue: Boolean; [rw]

  property HasMinValue: Boolean; [rw]

  property MaxValue: Double; [rw]

  property MinValue: Double; [rw]

  property Text: TCaption; [rw]

  property OnCustomValidate: TJvCustomTextValidateEvent; [rw]

  property OnValueChanged: TNotifyEvent; [rw]

  property OnDecimalRounding: TJvCustomDecimalRoundingEvent; [rw]

  property Value: Variant; [rws]

  property AllowEmpty: Boolean; [rw]

  property ZeroEmpty: Boolean; [rw]

  property EmptyValue: string; [rw]

  property DisplayPrefix: string; [rw]

  property DisplaySuffix: string; [rw]

  property KeepPrefixSuffixIntact: Boolean; [rw]

  property HidePrefixSuffixIfEmpty: Boolean; [rw]

  property CriticalPoints: TJvValidateEditCriticalPoints; [rw]

  property AutoAlignment: Boolean; [rw]

  property OnIsValid: TJvCustomIsValidEvent; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  function IsValid; virtual;

  function IsEmpty; virtual;

  procedure RecalcCheckChars;

  procedure Assign(); override;

  property AsInteger: Int64; [rw]

  property AsCurrency: Currency; [rw]

  property AsFloat: Double; [rw]

  property AsBcd: TBcd; [rw]

  property ForceDecimalSeparatorInput: Boolean; [rw]

end;

TJvCustomValidateEdit

TObject