Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум программистов _ Delphi - Компоненты _ Tmonthcalendar

Автор: Iris 29:04:2008, 21:08

Как Выделить диапозон дат на календаре при открытии формы
Есть TMonthCalendar, задаю
Year, Month - текущие год и месяц

CODE

    Calendar.EndDate:= EncodeDate (Year, Month,     1) - 1;
    Calendar.Date   := EncodeDate (Year, Month - 1, 1);

НО не хочет присваивать Calendar.Date значения кроме текущей даты

Автор: Iris 30:04:2008, 03:57

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

Автор: Yason 30:04:2008, 14:58

Цитата(Iris @ 30:04:2008 - 01:08)

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

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

Цитата(Iris @ 30:04:2008 - 07:57)

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

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

Автор: Iris 1:05:2008, 08:34

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