Class TDBDateTimePicker (unit DBDateTimePicker)

Inherits from

TDateTimePicker

************************ TDBDateTimePicker - v1.0 ************************ The TDBDateTimePicker is a simple component descended from TDateTimePicker. When I installed Delphi 3 I noticed that the TDateTimePicker wasn't data aware and that's what I need. I wrote it and all other Delphi developers can now be saved some hassle. This is a simple unit and carries no warranties, expressed or implied. Use it at your own risk. Installation ------------ Add this unit (DBDateTimePciker.pas' to any of your Delphi 3 packages. Current Limitations ------------------- Currently TDBDateTimePicker only works with dates, not time or DateTime. If someone get's around to implementing it before I do, I'd appreciate a copy. Written By ---------- Simon Munro Paradoxical Business Solutions simon@delphi.co.za www.delphi.co.za Check my web site for later versions Copyright © 1997 Paradoxical Business Solutions Please ensure that this comment section remains unchanged.

Constructors


constructor Create(Aowner: TComponent);

Public declarations


Functions

destructor Destroy;


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);


Properties

property DataField : string

Published declarations

property DataSource : TDataSource


Events

Variables

FAllowChange : Boolean;

Private declarations

FDataLink : TFieldDataLink;



Constructors


constructor Create(Aowner: TComponent);

Public declarations


Functions


destructor Destroy;


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);


Properties


property DataField : string

Published declarations


property DataSource : TDataSource


Events


Variables


FAllowChange : Boolean;

Private declarations


FDataLink : TFieldDataLink;