| Class TdkwLabelEdit (unit DKWLEdit) |
TDBEdit
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy ;
procedure SetBounds ( ALeft, ATop, AWidth, AHeight: Integer ) ;
procedure SetLabelPosition ( Value: TdkwLabelPosition ) ;
procedure SetParent ( AParent: TWinControl ) ;
procedure LabelDataChange ( Sender: TObject ) ;
procedure UpdateLabel ;| Properties |
property LabelPosition : TdkwLabelPosition| Events |
| Variables |
FLabel : TLabel ;
FLabelPosition : TdkwLabelPosition ;
FOldOnDataChange : TNotifyEvent ;| Constructors |
constructor Create(AOwner: TComponent);Create Preserve the reference to the old DataChange method, which is private, and replace it with our own
| Functions |
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
| Properties |
property LabelPosition : TdkwLabelPosition| Events |
| Variables |
FLabel : TLabel ;
FLabelPosition : TdkwLabelPosition ;
FOldOnDataChange : TNotifyEvent ;