Class TdkwLabelEdit (unit DKWLEdit) |
Inherits from
TDBEdit
constructor Create(AOwner: TComponent);
- Create
Preserve the reference to the old DataChange method, which
is private, and replace it with our own
destructor Destroy ;
Destroy
Cleanly destroy the TdkwLabelEdit
procedure SetBounds ( ALeft, ATop, AWidth, AHeight: Integer ) ;
SetBounds
Move our label with us to a new location
procedure SetLabelPosition ( Value: TdkwLabelPosition ) ;
SetLabelPosition
Move the label to a new position
procedure SetParent ( AParent: TWinControl ) ;
SetParent
Move our label with us to a new parent
procedure LabelDataChange ( Sender: TObject ) ;
LabelDataChange
Update the label and pass the change request on to the
old DataChange method
procedure UpdateLabel ;
UpdateLabel
Create a paired label at the correct location
property LabelPosition : TdkwLabelPosition
FLabel : TLabel ;
FLabelPosition : TdkwLabelPosition ;
FOldOnDataChange : TNotifyEvent ;
constructor Create(AOwner: TComponent);
Create
Preserve the reference to the old DataChange method, which
is private, and replace it with our own
destructor Destroy ;
Destroy
Cleanly destroy the TdkwLabelEdit
procedure SetBounds ( ALeft, ATop, AWidth, AHeight: Integer ) ;
SetBounds
Move our label with us to a new location
procedure SetLabelPosition ( Value: TdkwLabelPosition ) ;
SetLabelPosition
Move the label to a new position
procedure SetParent ( AParent: TWinControl ) ;
SetParent
Move our label with us to a new parent
procedure LabelDataChange ( Sender: TObject ) ;
LabelDataChange
Update the label and pass the change request on to the
old DataChange method
procedure UpdateLabel ;
UpdateLabel
Create a paired label at the correct location
property LabelPosition : TdkwLabelPosition
FLabel : TLabel ;
FLabelPosition : TdkwLabelPosition ;
FOldOnDataChange : TNotifyEvent ;