Class TDBMaskEdit (unit Dame) |
Inherits from
TCustomMaskEdit
TDBMaskEdit } { Data Aware Mask Edit
constructor Create(AOwner: TComponent);
- TDBMaskEdit } { Data Aware Masked Edit } { Override the constructor to initialize variables
destructor Destroy;
procedure Change;
function EditCanModify: Boolean;
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure KeyPress(var Key: Char);
procedure Notification(AComponent: TComponent; Operation: TOperation);
procedure Reset;
procedure CalcTextMargin;
procedure CMEnter(var Message: TCMEnter);
procedure CMExit(var Message: TCMExit);
procedure CMFontChanged(var Message: TMessage);
Since edit controls do not handle justification unless multi-line (and
then only poorly) we will draw right and center justify manually unless
the edit has the focus.
procedure DataChange(Sender: TObject);
procedure EditingChange(Sender: TObject);
forces update
function GetDataField: string;
function GetDataSource: TDataSource;
function GetField: TField;
function GetReadOnly: Boolean;
procedure SetDataField(const Value: string);
procedure SetDataSource(Value: TDataSource);
procedure SetFocused(Value: Boolean);
procedure SetReadOnly(Value: Boolean);
procedure UpdateData(Sender: TObject);
procedure WMCut(var Message: TMessage);
procedure WMPaint(var Message: TWMPaint);
procedure WMPaste(var Message: TMessage);
property About : TDBMaskEdAboutBox
AboutBox
property AutoSelect :
property AutoSize :
property BorderStyle :
property CharCase :
property Color :
property Ctl3D :
property DataField : string
property DataSource : TDataSource
property DragCursor :
property DragMode :
property EditMask :
Publish EditMask and EditText properties.
property EditText :
property Enabled :
property Font :
property MaxLength :
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PasswordChar :
property PopupMenu :
property ReadOnly : Boolean
property ShowHint :
property TabOrder :
property TabStop :
property Text :
Publish Text property.
property Visible :
property Field : TField
event OnChange :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
FAlignment : TAlignment;
FCanvas : TControlCanvas;
FDataLink : TFieldDataLink;
FFocused : Boolean;
FMaskEditAbout : TDBMaskEdAboutBox;
FTextMargin : Integer;
constructor Create(AOwner: TComponent);
TDBMaskEdit } { Data Aware Masked Edit } { Override the constructor to initialize variables
destructor Destroy;
procedure Change;
function EditCanModify: Boolean;
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure KeyPress(var Key: Char);
procedure Notification(AComponent: TComponent; Operation: TOperation);
procedure Reset;
procedure CalcTextMargin;
procedure CMEnter(var Message: TCMEnter);
procedure CMExit(var Message: TCMExit);
procedure CMFontChanged(var Message: TMessage);
Since edit controls do not handle justification unless multi-line (and
then only poorly) we will draw right and center justify manually unless
the edit has the focus.
procedure DataChange(Sender: TObject);
procedure EditingChange(Sender: TObject);
forces update
function GetDataField: string;
function GetDataSource: TDataSource;
function GetField: TField;
function GetReadOnly: Boolean;
procedure SetDataField(const Value: string);
procedure SetDataSource(Value: TDataSource);
procedure SetFocused(Value: Boolean);
procedure SetReadOnly(Value: Boolean);
procedure UpdateData(Sender: TObject);
procedure WMCut(var Message: TMessage);
procedure WMPaint(var Message: TWMPaint);
procedure WMPaste(var Message: TMessage);
property About : TDBMaskEdAboutBox
AboutBox
property AutoSelect :
property AutoSize :
property BorderStyle :
property CharCase :
property Color :
property Ctl3D :
property DataField : string
property DataSource : TDataSource
property DragCursor :
property DragMode :
property EditMask :
Publish EditMask and EditText properties. EditText property does not } { need to be published if so desired.
property EditText :
property Enabled :
property Font :
property MaxLength :
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PasswordChar :
property PopupMenu :
property ReadOnly : Boolean
property ShowHint :
property TabOrder :
property TabStop :
property Text :
Publish Text property. This property does not need to be published if } { so desired.
property Visible :
property Field : TField
event OnChange :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
FAlignment : TAlignment;
FCanvas : TControlCanvas;
FDataLink : TFieldDataLink;
FFocused : Boolean;
FMaskEditAbout : TDBMaskEdAboutBox;
FTextMargin : Integer;