| Class TDbLinkEdit (unit HJLnkEdt) |
TCustomMaskEdit
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure BoundsChanged;
procedure Change;set field link to calendar date
procedure CreateParams(var Params: TCreateParams);
procedure DoEnter;
procedure DoExit;
procedure EditButtonClick;
function EditCanModify: Boolean;
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure KeyPress(var Key: Char);
procedure Loaded;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure Notification(AComponent: TComponent;Operation: TOperation);
procedure Reset;
procedure CMEnter(var Message: TCMEnter);
procedure CMExit(var Message: TWMNoParams);
procedure CMGetDataLink(var Message: TMessage);
procedure DataChange(Sender: TObject);
procedure EditingChange(Sender: TObject);and (FDataLink.
function GetDataField: string;
function GetDataSource: TDataSource;
function GetField: TField;
function GetReadOnly: Boolean;
function GetTextMargins: TPoint;
procedure SetDataField(const Value: string);
procedure SetDataSource(Value: TDataSource);
procedure SetFocused(Value: Boolean);
procedure SetLinkStyle(Value: TLinkStyle);
procedure SetReadOnly(Value: Boolean);
procedure StopTracking;
procedure TrackButton(X,Y: Integer);
procedure UpdateData(Sender: TObject);
procedure WMCut(var Message: TMessage);
procedure WMPaint(var Message: TWMPaint);
procedure WMPaste(var Message: TMessage);
procedure WMSetCursor(var Msg: TWMSetCursor);| Properties |
property AutoSelect :
property AutoSize :
property BorderStyle :
property CharCase :
property Color :
property Ctl3D :
property DataField : string
property DataSource : TDataSource
property DragCursor :
property DragMode :
property Enabled :
property Font :
property ImeMode :
property ImeName :
property LinkStyle : TLinkStyle
property MaxLength :
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PasswordChar :
property PopupMenu :
property ReadOnly : Boolean
property ShowHint :
property TabOrder :
property TabStop :
property Visible :
property Field : TField| Events |
event OnButtonClick : TNotifyEvent
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 :
event OnStartDrag : | Variables |
FAlignment : TAlignment;
fButtonWidth : integer;
FCanvas : TControlCanvas;
FDataLink : TFieldDataLink;
FFocused : Boolean;
fLinkStyle : TLinkStyle;
fOnButtonClick : TNotifyEvent;
fPressed : boolean;
fTracking : boolean;| Constructors |
constructor Create(AOwner: TComponent);Public declarations
| Functions |
destructor Destroy;Create
procedure BoundsChanged;CreateParams
procedure Change;Protected declarations
set field link to calendar date
procedure CreateParams(var Params: TCreateParams);call the inherited Change method
procedure DoEnter;StopTracking;
procedure DoExit;DoEnter
procedure EditButtonClick;SetLinkStyle
function EditCanModify: Boolean;
procedure KeyDown(var Key: Word; Shift: TShiftState);WMSetCursor
procedure KeyPress(var Key: Char);KeyDown
procedure Loaded;Destroy
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);TrackButton
procedure MouseMove(Shift: TShiftState; X, Y: Integer);MouseDown
procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure Notification(AComponent: TComponent;Operation: TOperation);
procedure Reset;
procedure CMEnter(var Message: TCMEnter);
procedure CMExit(var Message: TWMNoParams);
procedure CMGetDataLink(var Message: TMessage);
procedure DataChange(Sender: TObject);
procedure EditingChange(Sender: TObject);must have proper parameters for event
and (FDataLink.Modified
function GetDataField: string;Remove the elipsis button (if present) when we lose focus
function GetDataSource: TDataSource;returns the name of the data field
function GetField: TField;assigns new data source
function GetReadOnly: Boolean;tell data link to update database
function GetTextMargins: TPoint;
procedure SetDataField(const Value: string);returns reference to the data source
procedure SetDataSource(Value: TDataSource);assigns name of data field
procedure SetFocused(Value: Boolean);
procedure SetLinkStyle(Value: TLinkStyle);BoundsChanged
procedure SetReadOnly(Value: Boolean);
procedure StopTracking;MouseMove
procedure TrackButton(X,Y: Integer);if the mouse was released (after being pressed) on the button then perform its associated action
procedure UpdateData(Sender: TObject);
procedure WMCut(var Message: TMessage);
procedure WMPaint(var Message: TWMPaint);EditButtonClick
procedure WMPaste(var Message: TMessage);
procedure WMSetCursor(var Msg: TWMSetCursor);WMPaint
| Properties |
property AutoSelect : Published declarations
property AutoSize :
property BorderStyle :
property CharCase :
property Color :
property Ctl3D :
property DataField : string
property DataSource : TDataSource
property DragCursor :
property DragMode :
property Enabled :
property Font :
property ImeMode :
property ImeName :
property LinkStyle : TLinkStyle
property MaxLength :
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PasswordChar :
property PopupMenu :
property ReadOnly : Boolean
property ShowHint :
property TabOrder :
property TabStop :
property Visible :
property Field : TField| Events |
event OnButtonClick : TNotifyEvent
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 :
event OnStartDrag : | Variables |
FAlignment : TAlignment;
fButtonWidth : integer;Private declarations
FCanvas : TControlCanvas;
FDataLink : TFieldDataLink;
FFocused : Boolean;
fLinkStyle : TLinkStyle;
fOnButtonClick : TNotifyEvent;
fPressed : boolean;
fTracking : boolean;