[Alexir]

Подскажите пожадуйста , как сделать чтобы при смене месяца в году менялся и год в datetimepicker?datetimepicker имеет следующий вид datemode=dmUpDown,

Код:

1 2 3

procedure TForm1.DateTimePicker1Change(Sender: TObject); DateTime_SetFormat(DateTimePicker1.Handle, pChar('MMMMMMMMM yyyy')); BlankDate := FALSE;

[lmikle]

Не совсем понятно, что ты хочешь.
Напиши подробнее. С какого бодуна год должен меняться...

[Alexir]

когда я счелкаю на Dtpickere меняеться только та часть которая выбрана т е сначала месяц ,а мне надо чтобы при смене последнего месяца менялся и год .Пример декабрь 2008 ,январь 2009 . Можно вообще так сделать?

[lmikle]

На:

Код:

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.DateTimePicker1Change(Sender: TObject); var   ADate : TDateTime; begin   ADate := DateTimePicker1.Date;   If FDate <> 0 Then     Begin       DateTimePicker1.DateTime := IncYear(ADate,(MonthOf(ADate) - MonthOf(FDate)) div -11);     End;   FDate := ADate; end;

FDate - TDateTime. Надо ее инициализировать при входе в окно текущим значением в компоненте.

Да, задачка оказалась интересной.. Пришлось немного покумекать мозгами

[Alexir]

Большое тебе спасибо !