| Class TFormCalendar (unit Datetime) |
TForm
Set Clock Time from TDateTime
| Constructors |
| Functions |
procedure BtnCancelClick(Sender: TObject);
procedure BtnSelectClick(Sender: TObject);
procedure Calendar1DblClick(Sender: TObject);
procedure CBMonthChange(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
function GetDateTime:TDateTime;
procedure SetDate(Y, M, D: Word);
procedure SetDateTime(DT: TDateTime);
procedure SEYearChange(Sender: TObject);
procedure UpdateDate(Y, M, D: Word);
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;