[jeka123]

Может подсказать как мне в календаре сделать определенный период допусти с 1 сентября 2009 по 31 августа 2010

[Aristarh Dark]

Сделать 2 календаря На одном указать начало, на другом - конец.

[jeka123]

Мне нужен один календарь но чтобы при листании месяцев был определенный период (с 1 сентября по 31 августа).... и как сделатьчтобы он автоматически дату ставил на сегодняшний день?(

[Михалыч]

по поводу текущей даты делай так:

procedure TForm1.FormCreate(Sender: TObject);
begin
MonthCalendar1.Date := Date;
end;

end.

[PhoeniX]

Сообщение от jeka123

Мне нужен один календарь но чтобы при листании месяцев был определенный период (с 1 сентября по 31 августа)....

Параметры MinDate и MaxDate

Сообщение от jeka123

и как сделатьчтобы он автоматически дату ставил на сегодняшний день?(

По-моему, он это сам делает по умолчанию... В крайнем случае, при Form.OnCreate ставь дату.

[jeka123]

а можно пример ) а то что не получается..(

[pesi]

Код:

1 2	MonthCalendar1.MaxDate:=strtodate('15.10.2009'); MonthCalendar1.MinDate:=strtodate('15.01.2009');

[jeka123]

и еще один вопросик вот код :

Код:

1 2 3 4

procedure TForm5.MonthCalendar1DblClick(Sender: TObject); begin Form2.Edit4.Text:=DateTimeToStr(MonthCalendar1.Date); end;

при двойном клике по дню, дата копируется в едит, и при листании месяца тоже коприуется, как мне убрать чтобы при листании месяца она не копировалась в едит? или вообще убрать стрелки...

[pesi]

Код:

1 2 3 4 5 6 7 8 9

var   MousePosition: TPoint;   CalendarPosition: TPoint; begin   MousePosition := Mouse.CursorPos;   CalendarPosition := (Sender as TControl).ClientOrigin;   if (MousePosition.Y > CalendarPosition.Y + GetSystemMetrics(SM_CYICON)) then    Edit1.Text:=DateToStr(MonthCalendar1.Date); end;