| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

MonthCalendar [WinXP]

Iris ©   (2008-08-27 10:01:00) 

Проблема следующая:
есть MonthCalendar := TMonthCalendar(Sender);
хочу присвоить

   StartDay    := 1;
   StartMonth := 2;
   StartYear   := 2008;

MonthCalendar.Date   := EncodeDate(StartYear, StartMonth, StartDay);

выдает ошибку " Failed to set calendar selected range"
что делаю не так?

---

Vlad Oshin   (2008-08-27 15:09:00) [1]

понятно

---

Iris   (2008-08-27 14:31:00) [2]

все заработало, спасибо

---

Leonid Troyanovsky   (2008-08-27 14:20:00) [3]

> Vlad Oshin ©   (27.08.08 13:44) [4]

> но у меня опять работает..

a.MultiSelect := True;
a.EndDate := Now;

--
Regards, LVT.

---

Vlad Oshin   (2008-08-27 13:44:00) [4]

MaxSelectRange (published)  Specifies the maximum number of days that can be selected.

но у меня опять работает..

procedure TForm1.Button1Click(Sender: TObject);
var
a           :tMonthCalendar;
StartDay    :word;
StartMonth  :word;
StartYear   :word;
begin
StartDay   := 1;
StartMonth := 2;
StartYear  := 2008;
a:=tMonthCalendar.Create(form1);
a.Parent  := form1;
a.Left    := 1;
a.Top     := 1;
a.Visible := 1>0;
a.Date:=EncodeDate(StartYear,StartMonth,StartDay);
ShowMessage(inttostr(a.MaxSelectRange)); // =31
end;

---

Iris   (2008-08-27 13:17:00) [5]

Спасибо, MaxSelectRange стоял на 31,
кстати за что отвечает MaxSelectRange?

---

Leonid Troyanovsky   (2008-08-27 10:23:00) [6]

> Iris ©   (27.08.08 10:01)  

> выдает ошибку "Failed to set calendar selected range"
> что делаю не так?

А что у нас с MultiSelect, MaxSelectRange & etc?

--
Regards, LVT.

---

Vlad Oshin   (2008-08-27 10:17:00) [7]

а точно переменные не меняются до EncodeDate(StartYear, StartMonth, StartDay); и перечислены так, как тут?
У меня работает..

procedure TForm1.Button1Click(Sender: TObject);
var
 a           :tMonthCalendar;
 StartDay    :word;
 StartMonth  :word;
 StartYear   :word;
begin
StartDay   := 1;
StartMonth := 2;
StartYear  := 2008;
a:=tMonthCalendar.Create(form1);
a.Parent  := form1;
a.Left    := 1;
a.Top     := 1;
a.Visible := 1>0;
a.Date:=EncodeDate(StartYear,StartMonth,StartDay);
end;

---

Наверх