Tmonthcalendar

[Iris]

Как Выделить диапозон дат на календаре при открытии формы
Есть TMonthCalendar, задаю
Year, Month - текущие год и месяц
[codebox] Calendar.EndDate:= EncodeDate (Year, Month, 1) - 1;
Calendar.Date := EncodeDate (Year, Month - 1, 1);[/codebox]
НО не хочет присваивать Calendar.Date значения кроме текущей даты

 

[Iris]

Подскажите, может как-то можно добраться до метода onCreate этого компонента?

 

[Yason]

Как Выделить диапозон дат на календаре при открытии формы

procedure TForm1.FormShow(Sender: TObject);
begin
MonthCalendar1.Date := EncodeDate(2008, 4, 5);
MonthCalendar1.EndDate := EncodeDate(2008, 4, 15);
end;

Подскажите, может как-то можно добраться до метода onCreate этого компонента?

Не очень понятно, зачем, но можно - создаёте свой компонент-наследник от TMonthCalendar, переопределяете конструктор Create.

 

[Iris]

Собвсвенно, незачем, просто я ж говорю, MonthCalendar1.Date можно присвоить либо текущую дату календаря либо настоящую дату, а мне нужно присвоить дату пазапрошлого месяца при откурытии формы, на которой содержится каледарь. Таким образом, как ппоказано, не пропускает
Как это сделать?