如何用delphi6.0制作日历？

Question

我是delphi的一个初学者，现在想用MonthCalendar1控件来制作一个日历，但不知道怎样每次打开日历的时候能自动调用系统时间，也就是系统能自动调用当前时间。请大家多指教，给个指引，先谢了！

Answer 1

MonthCalendar1.Date := Date();

Answer 2

or
  MonthCalendar1.Datetime := Now();  //具体到时分秒，上面的只到年月日

Answer 3

以下的东东或许算是个日历查询器吧（呵呵，很简陋）
在窗体上分别放上6个TButton:
BtnIncrease,BtnDecrease,BtnAdd10,BtnSubtract10,BtnLeap,BtnToday
和一TLabel:
LabelDate
use Datesvar
  TheDay: TDate;procedure TForm1.FormCreate(Sender: TObject);
begin
  TheDay := TDate.Create (2004,12, 25);
  LabelDate.Caption := TheDay.GetText;
end;//增加一天
procedure TForm1.BtnIncreaseClick(Sender: TObject);
begin
  TheDay.Increase;
  LabelDate.Caption := TheDay.GetText;
end;//减少一天
procedure TForm1.BtnDecreaseClick(Sender: TObject);
begin
  TheDay.Decrease;
  LabelDate.Caption := TheDay.GetText;
end;//增加10天
procedure TForm1.BtnAdd10Click(Sender: TObject);
begin
  TheDay.Increase (10);
  LabelDate.Caption := TheDay.GetText;
end;//减少10天
procedure TForm1.BtnSubtract10Click(Sender: TObject);
begin
  TheDay.Decrease (10);
  LabelDate.Caption := TheDay.GetText;
end;//是否为润年
procedure TForm1.BtnLeapClick(Sender: TObject);
begin
  if TheDay.LeapYear then
    ShowMessage ('Leap year')
  else
    ShowMessage ('NON Leap year');
end;//显示今天的日期
procedure TForm1.BtnTodayClick(Sender: TObject);
var
  NewDay: TDate;
begin
  NewDay := TDate.Create;
  TheDay.Assign(NewDay);
  LabelDate.Caption := TheDay.GetText;
  NewDay.Free;
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
  TheDay.Free;
end;