Class TFoneEdit (unit FonEdit1)

Inherits from

TEdit

Constructors


constructor Create(AOwner: TComponent);

Public fields and properties of TFoneEdit } { Public methods of TFoneEdit


Functions

destructor Destroy;

Code to perform other tasks when the component is created

procedure Change;

Override OnChange handler from TEdit

procedure Click;

Protected fields of TFoneEdit } { Protected methods of TFoneEdit

Override OnClick handler from TEdit


procedure DoExit;

Override OnExit handler from TEdit

procedure KeyPress(var Key : Char);

Override OnKeyPress handler from TEdit

procedure Loaded;

Here, free any other dynamic objects that the component methods } { created but have not yet freed.

procedure AutoDestroy;

Method to free any objects created by AutoInitialize

of AutoInitialize } { Method to free any objects created by AutoInitialize


procedure AutoInitialize;

Private methods of TFoneEdit } { Method to set variable and property values and create objects

Method to set variable and property values and create objects


function GetAreaCode : String;

Read method for property AreaCode

of AutoDestroy } { Read method for property AreaCode


function GetTollFree : Boolean;

Read method for property TollFree

Read method for property TollFree


procedure SetAreaCode(Value : String);

Write method for property AreaCode

Write method for property AreaCode


procedure SetTollFree(Value : Boolean);

Write method for property TollFree

Write method for property TollFree


Properties

property AreaCode : String

Default Area Code

property TollFree : Boolean

Is this a Toll Free Number?

Events

event OnChange :


event OnClick :

Published properties of the component

event OnDblClick :


event OnDragDrop :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

FAreaCode : String;

Private fields of TFoneEdit } { Storage for property AreaCode

FTollFree : Boolean;

Storage for property TollFree


Constructors


constructor Create(AOwner: TComponent);

Public fields and properties of TFoneEdit } { Public methods of TFoneEdit


Functions


destructor Destroy;

Code to perform other tasks when the component is created


procedure Change;

Override OnChange handler from TEdit


procedure Click;

Protected fields of TFoneEdit } { Protected methods of TFoneEdit

Override OnClick handler from TEdit


procedure DoExit;

Override OnExit handler from TEdit


procedure KeyPress(var Key : Char);

Override OnKeyPress handler from TEdit


procedure Loaded;

Here, free any other dynamic objects that the component methods } { created but have not yet freed. Also perform any other clean-up } { operations needed before the component is destroyed. } { Last, free the component by calling the Destroy method of the } { parent class.


procedure AutoDestroy;

Method to free any objects created by AutoInitialize

of AutoInitialize } { Method to free any objects created by AutoInitialize


procedure AutoInitialize;

Private methods of TFoneEdit } { Method to set variable and property values and create objects

Method to set variable and property values and create objects


function GetAreaCode : String;

Read method for property AreaCode

of AutoDestroy } { Read method for property AreaCode


function GetTollFree : Boolean;

Read method for property TollFree

Read method for property TollFree


procedure SetAreaCode(Value : String);

Write method for property AreaCode

Write method for property AreaCode


procedure SetTollFree(Value : Boolean);

Write method for property TollFree

Write method for property TollFree


Properties


property AreaCode : String

Default Area Code


property TollFree : Boolean

Is this a Toll Free Number?


Events


event OnChange :


event OnClick :

Published properties of the component


event OnDblClick :


event OnDragDrop :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


FAreaCode : String;

Private fields of TFoneEdit } { Storage for property AreaCode


FTollFree : Boolean;

Storage for property TollFree