Class TFormCalendar (unit Datetime)

Inherits from

TForm

Set Clock Time from TDateTime

Constructors



Functions

procedure BtnCancelClick(Sender: TObject);


procedure BtnSelectClick(Sender: TObject);


procedure Calendar1DblClick(Sender: TObject);

If date/time already set, then change only the date part

procedure CBMonthChange(Sender: TObject);


procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


function GetDateTime:TDateTime;

Set Initial Date

procedure SetDate(Y, M, D: Word);


procedure SetDateTime(DT: TDateTime);

Set Initial Date

procedure SEYearChange(Sender: TObject);


procedure UpdateDate(Y, M, D: Word);

TFormCalendar Implementation

procedure SelectDate;


Properties

Events

Variables

BtnCancel : TBitBtn;


BtnSelect : TBitBtn;


Calendar1 : TCalendar;


CBMonth : TComboBox;


Label1 : TLabel;


Label2 : TLabel;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


SEYear : TSpinEdit;


SelectedDateTime : TDateTime;



Constructors


Functions


procedure BtnCancelClick(Sender: TObject);


procedure BtnSelectClick(Sender: TObject);


procedure Calendar1DblClick(Sender: TObject);

If date/time already set, then change only the date part


procedure CBMonthChange(Sender: TObject);


procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


function GetDateTime:TDateTime;

Set Initial Date


procedure SetDate(Y, M, D: Word);


procedure SetDateTime(DT: TDateTime);

Set Initial Date


procedure SEYearChange(Sender: TObject);


procedure UpdateDate(Y, M, D: Word);

TFormCalendar Implementation


procedure SelectDate;


Properties


Events


Variables


BtnCancel : TBitBtn;


BtnSelect : TBitBtn;


Calendar1 : TCalendar;


CBMonth : TComboBox;


Label1 : TLabel;


Label2 : TLabel;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


SEYear : TSpinEdit;


SelectedDateTime : TDateTime;