Class TdkwLabelEdit (unit DKWLEdit)

Inherits from

TDBEdit

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 ;



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 ;