TValidatorOptions

type TValidatorOptions = class(TPersistent)

protected

  FOwner: TWinControl;

  FHookedControl: TWinControl;

  FValidationType: TValidationType;

  FValidatorType: string;

  FValidatorClass: TValidatorClass;

  FSoftValidation: Boolean;

  FMask: string;

  FLastValid: Boolean;

  FLastErrorCode: Word;

  FBeepOnError: Boolean;

  FInputRequired: Boolean;

  FEnableHooking: Boolean;

  FUpdating: Integer;

  FEvent: TValidationEvent;

  NewWndProc: Pointer;

  PrevWndProc: Pointer;

  procedure HookControl;

  procedure UnHookControl;

  procedure voWndProc();

  procedure RecreateHookedWnd;

  function Validate;

  procedure AssignValidator;

  procedure SetValidatorType();

  procedure SetEvent();

  procedure SetEnableHooking();

  property InputRequired: Boolean; [rw]

public

  constructor Create(); dynamic;

  destructor Destroy; override;

  procedure AttachTo();

  procedure SetLastErrorCode();

  procedure SetLastValid();

  procedure BeginUpdate;

  procedure EndUpdate;

  property LastValid: Boolean; [r]

  property LastErrorCode: Word; [r]

  property EnableHooking: Boolean; [rw]

  property ValidatorClass: TValidatorClass; [rw]

published

  property BeepOnError: Boolean; [rw]

  property SoftValidation: Boolean; [rw]

  property ValidationEvent: TValidationEvent; [rws]

  property ValidatorType: string; [rws]

  property ValidationType: TValidationType; [rws]

  property Mask: string; [rws]

end;

TValidatorOptions

TObject