jsDBDateTimePicker

This component is a data aware version of the standard Delphi date time picker. This subclass of TDateTimePicker has two new properties: DataField and DataSource.

type
  TjsDBDateTimePicker = class(TDateTimePicker)
private
  FDataLink: TFieldDataLink;
  function GetDataField: string;
  procedure SetDataField(const Value: string);
  function GetDataSource: TDataSource;
  procedure SetDataSource(Value: TDataSource);
protected
  procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  procedure DataChange(Sender: TObject); virtual;
  procedure UpdateData(Sender: TObject); virtual;
  procedure WndProc(var Message: TMessage); override;
public
  constructor Create(AOwner: TComponent); override;
  destructor Destroy; override;
published
  property DataField: string read GetDataField write SetDataField;
  property DataSource: TDataSource read GetDataSource write SetDataSource;
end;