Class TRkDBStatusControl (unit RkDbStat) |
Inherits from
TRkCustomStatusControl
constructor Create( AOwner : TComponent );
- ================================} {== TRkDBStatusControl Methods ==} {================================
destructor Destroy;
Assign event handler
procedure Notification( AComponent : TComponent;
Operation : TOperation );
procedure CMGetDataLink( var Msg : TMessage );
Repaint with new FieldLabel
procedure DataChange( Sender : TObject );
=========================================================================
TRkDBStatusControl.
function GetDataField : string;
function GetDataSource : TDataSource;
procedure SetDataField( const Value : string );
procedure SetDataSource( Value : TDataSource );
procedure SetFieldLabel( const Value : string );
property Alignment :
Inherited Properties
property CaptionOffset :
property DataField : string
property DataSource : TDataSource
property FieldLabel : string
FDataLink : TFieldDataLink;
FFieldLabel : string;
constructor Create( AOwner : TComponent );
================================} {== TRkDBStatusControl Methods ==} {================================
destructor Destroy;
Assign event handler
procedure Notification( AComponent : TComponent;
Operation : TOperation );
procedure CMGetDataLink( var Msg : TMessage );
Repaint with new FieldLabel
procedure DataChange( Sender : TObject );
=========================================================================
TRkDBStatusControl.DataChange
This method gets called as a result of a number of different events:
1. The underlying field value changes. Occurs when changing the value
of the column tied to this control and then move to a new column or
a new record.
2. The corresponding Dataset goes into Edit mode.
3. The corresponding Dataset referenced by DataSource changes.
4. The current cursor is scrolled to a new record in the table.
5. The record is reset through a Cancel call.
6. The DataField property changes to reference another column.
=========================================================================
function GetDataField : string;
function GetDataSource : TDataSource;
procedure SetDataField( const Value : string );
procedure SetDataSource( Value : TDataSource );
procedure SetFieldLabel( const Value : string );
property Alignment :
Inherited Properties
property CaptionOffset :
property DataField : string
property DataSource : TDataSource
property FieldLabel : string
FDataLink : TFieldDataLink;
FFieldLabel : string;