Компонента для выбора даты

AnsiString sEditText = "";
bool bDateSet = false;
 
void __fastcall OnMonthCalendarDblClick(void *AThis, TObject *Sender) {
    TMonthCalendar *AMonthCalendar = dynamic_cast<TMonthCalendar*>(Sender);
    if (AMonthCalendar) {
        sEditText = AMonthCalendar->Date.DateTimeString();
        bDateSet = true;
    }
}
 
void SetDateTimeToEdit(TWinControl *AWinOwner, TEdit *AEdit, TButton *AButton) {
    bDateSet = false;
 
    TMonthCalendar* AMonthCalendar = new TMonthCalendar(AWinOwner);
    AMonthCalendar->Parent = AWinOwner;
    AMonthCalendar->BringToFront();
    // получаем экранные координаты кнопки
    const TPoint ptBtnScreen = AButton->Parent->ClientToScreen
        (TPoint(AButton->Left, AButton->Top));
    // получаем координаты относительно родителя календаря
    TPoint ptMonthClient = AWinOwner->ScreenToClient(ptBtnScreen);
    AMonthCalendar->Left = ptMonthClient.x;
    AMonthCalendar->Top = ptMonthClient.y + AButton->Height + 1;
    AMonthCalendar->Visible = true;
 
    TMethod AMethod;
    AMethod.Data = AWinOwner;
    AMethod.Code = &OnMonthCalendarDblClick;
    // по двойному щелчку дата будет добавлена в Edit
    AMonthCalendar->OnDblClick = *(TNotifyEvent*)&AMethod;
 
    while (!bDateSet) {
        Application->ProcessMessages();
        Sleep(5);
    }
 
    AEdit->Text = sEditText;
    delete AMonthCalendar;
}
 
//---------------------------------------------------------------------------
void __fastcall TForm1::btn3Click(TObject *Sender) {
    TButton *AClicked = dynamic_cast<TButton*>(Sender);
    if (!AClicked) {
        return;
    }
    SetDateTimeToEdit(this, edt1, AClicked);
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
 
#ifndef EvgCustomPanelH
#define EvgCustomPanelH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <Controls.hpp>
#include <ExtCtrls.hpp>
 
#define EDP_DEFAULT_BUTTON_WIDTH 25
#define EDP_DEFAULT_PANEL_HEIGHT 21
 
//---------------------------------------------------------------------------
class PACKAGE TEvgDatePanel : public TCustomPanel {
private:
 
    void __fastcall SetText(AnsiString val);
 
    AnsiString __fastcall GetText();
 
    int iFBtnWidth;
 
    TEdit *edp_Edit;
    TButton *edp_Button;
    TMonthCalendar *edp_MonthCalendar;
    TForm *edp_MonthForm;
 
    TButton *edp_ButtonOk;
    TButton *edp_ButtonCancel;
 
    void __fastcall edp_OnBtnClick(TObject *Sender);
    void __fastcall edp_OnMonthCalendarOkClick(TObject *Sender);
    void __fastcall edp_OnMonthCalendarCnclClick(TObject *Sender);
 
    void __fastcall SetButtonWidth(int val);
    int __fastcall GetButtonWidth();
 
    void __fastcall SetHeight(int val);
    int __fastcall GetHeight();
protected:
 
    virtual void __fastcall edp_OnDeactivateMonthForm(TObject *Sender);
 
public:
 
    __fastcall TEvgDatePanel(TComponent* Owner);
    __fastcall ~TEvgDatePanel();
 
__published:
    __property int ButtonWidth = {read=GetButtonWidth, write=SetButtonWidth, default=EDP_DEFAULT_BUTTON_WIDTH};
    __property AnsiString Text = {read=GetText, write=SetText};
    __property Align = {default=0};
    __property Anchors = {default=3};
    __property Constraints;
    __property Enabled = {default=1};
    __property PopupMenu;
    __property ShowHint;
    __property TabOrder = {default=-1};
    __property TabStop = {default=0};
    __property Touch;
    __property Visible = {default=1};
};
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------
 
#include <vcl.h>
 
#pragma hdrstop
 
#include "EvgCustomPanel.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------
// ValidCtrCheck is used to assure that the components created do not have
// any pure virtual functions.
//
 
static inline void ValidCtrCheck(TEvgDatePanel *) {
    new TEvgDatePanel(NULL);
}
 
//---------------------------------------------------------------------------
__fastcall TEvgDatePanel::TEvgDatePanel(TComponent* Owner) : TCustomPanel(Owner) {
 
    iFBtnWidth = EDP_DEFAULT_BUTTON_WIDTH;
 
    this->BevelKind = TBevelKind::bkNone;
    this->BevelOuter = TBevelCut::bvNone;
    this->Height = EDP_DEFAULT_PANEL_HEIGHT;
 
    edp_Button = new TButton(this);
    edp_Button->Parent = this;
    edp_Button->Width = iFBtnWidth;
    edp_Button->Align = alRight;
    edp_Button->OnClick = &edp_OnBtnClick;
 
    edp_Edit = new TEdit(this);
    edp_Edit->Parent = this;
    edp_Edit->Align = alClient;
 
    edp_MonthForm = new TForm(this);
    edp_MonthForm->BorderStyle = TFormBorderStyle::bsNone;
    edp_MonthForm->FormStyle = fsStayOnTop;
    edp_MonthForm->Position = poDesigned;
    edp_MonthForm->OnDeactivate = &edp_OnDeactivateMonthForm;
 
    const int iMonthCalBorder = 14; // учитываем рамку календаря при создании
    edp_MonthCalendar = new TMonthCalendar(this);
    edp_MonthCalendar->Parent = edp_MonthForm;
    edp_MonthCalendar->Left = -iMonthCalBorder;
    edp_MonthCalendar->Top = 0;
 
    edp_MonthForm->Width = edp_MonthCalendar->Width - iMonthCalBorder * 2;
 
    edp_ButtonOk = new TButton(edp_MonthForm);
    edp_ButtonOk->Parent = edp_MonthForm;
    edp_ButtonOk->Left = 0;
    edp_ButtonOk->Top = edp_MonthCalendar->Height;
    edp_ButtonOk->Width = edp_MonthForm->Width / 2;
    edp_ButtonOk->Caption = "OK";
    edp_ButtonOk->OnClick = &edp_OnMonthCalendarOkClick;
    // форма сама потом удалит компонент
    edp_MonthForm->InsertComponent(edp_ButtonOk);
 
    edp_ButtonCancel = new TButton(edp_MonthForm);
    edp_ButtonCancel->Parent = edp_MonthForm;
    edp_ButtonCancel->Top = edp_MonthCalendar->Height;
    edp_ButtonCancel->Left = edp_ButtonOk->BoundsRect.Right + 3;
    edp_ButtonCancel->Width = edp_MonthForm->Width / 2 - 3;
    edp_ButtonCancel->Caption = "Cancel";
    edp_ButtonCancel->OnClick = &edp_OnMonthCalendarCnclClick;
    // форма сама потом удалит компонент
    edp_MonthForm->InsertComponent(edp_ButtonCancel);
 
    edp_MonthForm->Height = edp_MonthCalendar->Height + edp_ButtonOk->Height;
 
}
 
//---------------------------------------------------------------------------
__fastcall TEvgDatePanel::~TEvgDatePanel() {
    if (edp_MonthCalendar) {
        delete edp_MonthCalendar;
    }
    if (edp_MonthForm) {
        delete edp_MonthForm;
    }
    if (edp_Button) {
        delete edp_Button;
    }
    if (edp_Edit) {
        delete edp_Edit;
    }
}
 
//---------------------------------------------------------------------------
void __fastcall TEvgDatePanel::edp_OnDeactivateMonthForm(TObject *Sender) {
    edp_MonthForm->Hide();
}
 
//---------------------------------------------------------------------------
void __fastcall TEvgDatePanel::edp_OnBtnClick(TObject *Sender) {
    if (!edp_MonthForm->Showing) {
        // получаем экранные координаты кнопки
        const TPoint ptBtnScreen = ClientToScreen(TPoint(edp_Button->Left,
                edp_Button->Top));
 
        edp_MonthForm->Left = ptBtnScreen.x;
        edp_MonthForm->Top = ptBtnScreen.y + edp_Button->Height;
        // в календаре установим дату из Edit
        edp_MonthCalendar->Date = StrToDateTimeDef(edp_Edit->Text, Now());
        edp_MonthForm->Show();
    }
}
 
//---------------------------------------------------------------------------
void __fastcall TEvgDatePanel::edp_OnMonthCalendarOkClick(TObject *Sender) {
    edp_Edit->Text = edp_MonthCalendar->Date.DateString();
    edp_MonthForm->Hide();
}
 
//---------------------------------------------------------------------------
void __fastcall TEvgDatePanel::edp_OnMonthCalendarCnclClick(TObject *Sender) {
    edp_MonthForm->Hide();
}
 
//---------------------------------------------------------------------------
void __fastcall TEvgDatePanel::SetButtonWidth(int val) {
    iFBtnWidth = val;
    if (edp_Button) {
        edp_Button->Width = iFBtnWidth;
    }
}
 
//---------------------------------------------------------------------------
int __fastcall TEvgDatePanel::GetButtonWidth() {
    return iFBtnWidth;
}
 
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------
namespace Evgcustompanel {
    void __fastcall PACKAGE Register() {
        TComponentClass classes[1] = {
            __classid(TEvgDatePanel)
        };
        RegisterComponents(L"Samples", classes, 0);
    }
}
 
//---------------------------------------------------------------------------
void __fastcall TEvgDatePanel::SetText(AnsiString val) {
    if (edp_Edit) {
        edp_Edit->Text = val;
    }
}
 
//---------------------------------------------------------------------------
AnsiString __fastcall TEvgDatePanel::GetText() {
    return edp_Edit->Text;
}
//---------------------------------------------------------------------------

class TMyButton : public TButton {
      AnsiString FVersion;
public:
      TMyButton(TComponent *AOwner):TButton(AOwner) {
             FVersion = "1.0.0.0";
      }
__published __property AnsiString Version = {read=FVersion,write=FVersion}; 
}