MonthCalendar

← →
Iris © (2008-08-27 10:01) [0]

Проблема следующая:
есть 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 10:17) [1]

а точно переменные не меняются до 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;

← →
Leonid Troyanovsky © (2008-08-27 10:23) [2]

> Iris © (27.08.08 10:01)

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

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

--
Regards, LVT.

← →
Iris © (2008-08-27 13:17) [3]

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

← →
Vlad Oshin © (2008-08-27 13:44) [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;

← →
Leonid Troyanovsky © (2008-08-27 14:20) [5]

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

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

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

--
Regards, LVT.

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

понятно

MonthCalendar Найти похожие ветки