[Alexir]

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

Код:

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

[lmikle]

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

[Alexir]

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

[lmikle]

На:

Код:

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]

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