unit8.cpp

sdf

#include <vcl.h>
#pragma hdrstop

#include "Unit8.h"
#pragma package(smart_init)
#pragma link "CCALENDR"
#pragma resource "*.dfm"
TForm8 *Form8;
//---------------------------------------------------------------------------
__fastcall TForm8::TForm8(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void TForm8::(TDateTime Date)
{
Calendar1->CalendarDate=Date;
}
//-----------------------------------------------------------------------------
TDateTime TForm8::GetDate()
{
TDateTime Date=Calendar1->CalendarDate;
return Date;
}
//------------------------------------------------------------------------------


void __fastcall TForm8::SpeedButton1Click(TObject *Sender)
{
Cakebdar1->PrevMonth();
}
//---------------------------------------------------------------------------

void __fastcall TForm8::SpeedButton2Click(TObject *Sender)
{
Cakebdar1->NextMonth();
}
//---------------------------------------------------------------------------