日历控件怎么使用?还有.....

Question

1.日历控件有几个?怎么实现我选中后将日期自动显示在edit上?2.我的报表有四页为什么打印机只打一页?

Answer 1

1\   两个（delphi自带的），edit1.text:=datetimetostr(datetimepicker1.date);

Answer 2

用datetimepicker的话就没必要再用edit；datetimepicker本身就可以作为edit用；用MonthCalendar的话就是：procedure TForm1.MonthCalendar1Click(Sender: TObject);
begin
  edit1.Text := datetostr(monthcalendar1.Date)
end;