Программа
Компонент для работы с полем дата "tMyDatePicker" + тестовая программа
в среде программирования Delphi (Дельфи, Делфи)
Программа

Пояснительная записка содержит 2 страницы.

Описание:

Разработан компонент TDBMyDate. Он служит для работы с датой, 
связанной с полем любой базы данных. Работает по аналогии с tDBEdit, 
только вводит даты и по кнопке открывает форму с календарем. 
Компонент - наследник от панели, тк на нем находятся два визуальных 
компонента - tEdit и tSpeedButton. Кроме того самой важной составляющей 
является TfieldDataLink - связь с полем базы данных. 

Описание ниже:

  TDBMyDate = class(TCustomPanel)
  private
     fEdit:tEdit;
     fBtn:tSpeedButton;
     fDataLink:TFieldDataLink;
     Procedure EditEnter(Sender: TObject);
     Procedure AllResize(Sender: TObject);

    { Private declarations }
  protected
      function GetDataField: string;
    function GetDataSource: TDataSource;
    procedure SetDataField(const Value: string);
    procedure SetDataSource(Value: TDataSource);
    Procedure DBEditChange(Sender: TObject);
    Procedure BtnClick(Sender: TObject);
    Procedure EditExit(Sender: TObject);
    Procedure SetModifyData;
    Function CanModifyData:boolean;

    function GetRo: boolean;
    procedure SetRo(const Value: boolean);
    procedure EditKeyPress(Sender: TObject; var Key: Char);
    function GetLabelFont: TFont;
    procedure SetLabelFont(const Value: tFont);
    function GetFlat: boolean;
    Procedure SetFlat(const Value: boolean);
    { Protected declarations }
  public
     EditUsed:boolean;
    procedure SetValue(d:tDateTime;clear:boolean);
    constructor Create(Owner:TComponent);Override;
    destructor Destroy;Override;
  published
   property DataField: string read GetDataField write SetDataField;
   property DataSource: TDataSource read GetDataSource write SetDataSource;
   Property ReadOnly:boolean read GetRO write SetRO default false;
   property Enabled;
   property ShowHint;
   property Visible;
   Property Font:tFont read GetLabelFont write SetLabelFont;
   Property FlatButton:boolean read GetFlat write SetFlat;
  end;

Порядок установки:

Для установки компонента необходимо открыть в Delphi файл MyComp.dpk. 
Затем скомпилировать и проинсталлировать новый компонент. 
Он появится на закладке MyComp. После чего необходимо открыть тестовый 
проект TestPrj.dpr. В нем находится пример использования компонента. 
Сама база DB.MDB в ней одна таблица с двумя полями типа datetime. 
В программе созданные компоненты привязаны каждый к одному из этих полей.