Class TALDate (unit ALDate)

Inherits from

TDateTimePicker

This class is inherithed from TDataTimePicker and link to a table. In addition to component original there are two additional properties: Datasource and Datafield Alejandro Castro calfra@mail.internet.com.mx

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;


procedure KeyDown ( var Key: word; shift: TShiftState);


procedure Change(Sender: TObject);


procedure CMExit (var Message: TWMNoParams);


procedure DataChange(Sender: TObject);


function GetDataField: string;


function GetDataSource: TDataSource;


procedure SetDataField(const Value : string);


procedure SetDataSource(Value: TDatasource);


procedure UpdateData(Sender: TObject);

if not (FDatalink.

Properties

property DataField : string


property DataSource : TDataSource


property ReadOnly : Boolean


Events

Variables

FDataLink : TFieldDataLink;


FReadOnly : Boolean;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;


procedure KeyDown ( var Key: word; shift: TShiftState);


procedure Change(Sender: TObject);


procedure CMExit (var Message: TWMNoParams);


procedure DataChange(Sender: TObject);


function GetDataField: string;


function GetDataSource: TDataSource;


procedure SetDataField(const Value : string);


procedure SetDataSource(Value: TDatasource);


procedure UpdateData(Sender: TObject);

if not (FDatalink.DataSource.State in [dsInsert]) then


Properties


property DataField : string


property DataSource : TDataSource


property ReadOnly : Boolean


Events


Variables


FDataLink : TFieldDataLink;


FReadOnly : Boolean;