delphi.gif (306 バイト) Calendarの使い方


Calendarは月ごとのカレンダーを表示できます。ヘルプはないので\Delphi3\Source\Samplesの下にあるソースを見て使い方を調べます。

 

toach.gif (917 バイト) 年月を指定するには

YearプロパティとMonthプロパティを変更します。

Val(txtYear.Text, year, code);
Calendar1.Year := year;
Val(txtMonth.Text, month, code);
Calendar1.Month := month;

toach.gif (917 バイト) 前の月、次の月を表示するには

PrevMonth、NextMonthメソッドを使用します。

Calendar1.PrevMonth;
txtMonth.Text := IntToStr(Calendar1.Month);
txtYear.Text := IntToStr(Calendar1.Year);
Calendar1.NextMonth;
txtMonth.Text := IntToStr(Calendar1.Month);
txtYear.Text := IntToStr(Calendar1.Year);