MonthCalendarの使い方

MonthCalendarはDelphi4から追加されました。
MonthCaledarを使うと特定の日付や範囲を指定できます。

　ユーザが選択した日付を得るには

Dateプロパティを読むとユーザが選択した日付を得ることができます。

　カレンダーの表示範囲を限定するには

例えば、今日が1月なら今年度は3月までです。今年度の予定カレンダーであれば、スクロールできる範囲は、1月から3月までに限定することができます。スクロールボタンは、MonthCalendarの上部の両側にあります。

例

with MonthCalendar1 do
begin
  MinDate := StrToDate('1998/1/1');
  MaxDate := StrToDate('1998/3/31');
end;

ユーザに日付の範囲を指定させるには

MultiSelectプロパティをTrueにすると、ユーザがSHIFTキーを押しながら最初の日と最後の日をクリックすると範囲指定ができるようになります。このとき、最初の日はDateプロパティで、最後の日はEndDateで取得できます。

例

procedure TForm1.Button1Click(Sender: TObject);
begin
    with MonthCalendar1 do
    begin
       StaticText1.Caption := 'FROM ' + DateToStr(Date) + ' TO ' +
          DateToStr(EndDate);
    end;
end;