Class TValidCustomEdit (unit Validations)

Inherits from

TCustomEdit

Constructors


constructor Create( AOwner: TComponent );

Public declarations

Published declarations



Functions

function CheckValid: Boolean;

Protected declarations

function Validate: Boolean;


procedure CMExit( var Message: TCMExit );

invalid event *) { Private declarations

Properties

property AllowEmpty : Boolean


property BeepOnInvalid : Boolean


property IsEmpty : Boolean


property IsValid : Boolean


Events

event OnInvalid : TInvalidEvent


Variables

FAllowEmpty : Boolean;

is the field is empty

FBeepOnInvalid : Boolean;

is the field allowed to be empty

FIsEmpty : Boolean;

is the field is valid

FIsValid : Boolean;


FOnInvalid : TInvalidEvent;

beep if invalid


Constructors


constructor Create( AOwner: TComponent );

Public declarations

Published declarations


Functions


function CheckValid: Boolean;

Protected declarations


function Validate: Boolean;


procedure CMExit( var Message: TCMExit );

invalid event *) { Private declarations


Properties


property AllowEmpty : Boolean


property BeepOnInvalid : Boolean


property IsEmpty : Boolean


property IsValid : Boolean


Events


event OnInvalid : TInvalidEvent


Variables


FAllowEmpty : Boolean;

is the field is empty


FBeepOnInvalid : Boolean;

is the field allowed to be empty


FIsEmpty : Boolean;

is the field is valid


FIsValid : Boolean;


FOnInvalid : TInvalidEvent;

beep if invalid