Class TFilterAlignEdit (unit GestEdit) |
Inherits from
TEdit
Constructor Create(AOwner:TComponent);
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);
property Alignment : TAlignment
property RequiredField : Boolean
property ValidChars : TValidChar
Public declarations
FRequired : Boolean;
For save Alignment*) { Private declarations
FValidch : TValidChar;
If Text is required
ValidChar : set of char;
String Char
FAlignment : TAlignment;
Constructor Create(AOwner:TComponent);
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);
property Alignment : TAlignment
property RequiredField : Boolean
property ValidChars : TValidChar
Public declarations
FRequired : Boolean;
For save Alignment*) { Private declarations
FValidch : TValidChar;
If Text is required
ValidChar : set of char;
String Char
FAlignment : TAlignment;