[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]

Код:

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

[jeka123]

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

Код:

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

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

[pesi]

Код:

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;