Class TFilterAlignEdit (unit GestEdit)

Inherits from

TEdit

Constructors


Constructor Create(AOwner:TComponent);



Functions

Procedure DoExit;

Protected declarations

procedure CMEnter(var Msg: TCMGotFocus);


procedure CreateParams(var Params:TCreateParams);

like ['A','E','I','O','U']

procedure KeyPress(var Key:Char);

BEGIN

procedure SetAlignment(Value:TAlignment);


Procedure SetRequired(Value:Boolean);


Procedure SetValidCh(Value:TValidChar);


procedure WMPaste(var Message: TWMPaste);


Properties

property Alignment : TAlignment


property RequiredField : Boolean


property ValidChars : TValidChar

Public declarations

Events

Variables

FRequired : Boolean;

For save Alignment*) { Private declarations

FValidch : TValidChar;

If Text is required

ValidChar : set of char;

String Char

FAlignment : TAlignment;



Constructors


Constructor Create(AOwner:TComponent);


Functions


Procedure DoExit;

Protected declarations


procedure CMEnter(var Msg: TCMGotFocus);


procedure CreateParams(var Params:TCreateParams);

like ['A','E','I','O','U']


procedure KeyPress(var Key:Char);

BEGIN


procedure SetAlignment(Value:TAlignment);


Procedure SetRequired(Value:Boolean);


Procedure SetValidCh(Value:TValidChar);


procedure WMPaste(var Message: TWMPaste);


Properties


property Alignment : TAlignment


property RequiredField : Boolean


property ValidChars : TValidChar

Public declarations


Events


Variables


FRequired : Boolean;

For save Alignment*) { Private declarations


FValidch : TValidChar;

If Text is required


ValidChar : set of char;

String Char


FAlignment : TAlignment;