Код

var dday,dmonth:byte;      mon[1..12] of byte; ... procedure TForm1.MonthCalendar1Click(Sender: TObject); var Day: Integer; begin Day := DayOf(MonthCalendar1.Date); if Day <> (dday)and(mon[MonthOf(MonthCalendar1.Date)]<>dday)and(dmonth<>MonthOf(MonthCalendar1.Date)) then begin   Edit1.Text:=Edit1.Text + IntToStr(Day)+';';   dday := DayOf(MonthCalendar1.Date);   dmonth:=MonthOf(MonthCalendar1.Date); end; end;

Сори не на чем проверить, Делфи под рукой нет.

//Только для полной верности при создании формы инициализируй значение LastMonth

Код

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

вообще-то нормально работало из без этого

z-END, смотри рисунок (справа)
такая строчка нужна
Edit1.Text:=Edit1.Text + IntToStr(DateUtils.DayOf(MonthCalendar1.Date)) +';';
а именно
Вот, что нужно в конечном итоге
Edit1.Text:= '1;2;3;5;6;8;';
Добавлено @ 16:49
в OnClick, после
MonthCalendar1.Date := IncMonth (MonthCalendar1.Date);
MonthCalendar1.Date := IncMonth (MonthCalendar1.Date,-1);

ставлю
For r:=0 to Dates.Count-1 do
Edit1.Text := Edit1.Text + ';' + Copy(Dates.ValueFromIndex[r],1,POS(DateSeparator,Dates.ValueFromIndex[r])-1);
пока нифига не получается
Добавлено @ 16:55
Пришлось пока отрубить твою процедуру

А мой код не проверял??? Ведь он не будет работать только в случае, если человек выбирает максимальный день месяца, отличного от текущего, при условии что выбранный месяц в количестве дней меньше предыдущевыбранного числа. Или я слишком замутил????

Это сообщение отредактировал(а) Druidik25 - 2.2.2005, 17:10

ну и где же твой код?

Итак, что нужно? Нужно чтобы пользователь открыл окно с календарем, выбирая даты видел бы их в TEdit`е (с этом проблем нет), хотелочсь бы подсвечивать даты жирным.

Цитата(Druidik25 @ 31.1.2005, 17:22)

Код var dday,dmonth:byte;      mon[1..12] of byte; ... procedure TForm1.MonthCalendar1Click(Sender: TObject); var Day: Integer; begin Day := DayOf(MonthCalendar1.Date); if Day <> (dday)and(mon[MonthOf(MonthCalendar1.Date)]<>dday)and(dmonth<>MonthOf(MonthCalendar1.Date)) then begin   Edit1.Text:=Edit1.Text + IntToStr(Day)+';';   dday := DayOf(MonthCalendar1.Date);   dmonth:=MonthOf(MonthCalendar1.Date); end; end; Сори не на чем проверить, Делфи под рукой нет.

Вот.

А на счёт жирности, то пока не знаю как.
Добавлено @ 19:09
Но придумать вполне возможно.

Это сообщение отредактировал(а) Druidik25 - 2.2.2005, 19:08

Druidik25, твой код слишком сложен, смотри первый топик (всего одна строчка и без заморочки) - все гениальное - просто

Код

procedure TfmDate.MonthCalendar1Click(Sender: TObject); begin Edit1.Text:=Edit1.Text + IntToStr(DateUtils.DayOf(MonthCalendar1.Date)) +';'; end;