Duda con el monthcalendar

[acrophet]

Hola, me gustaria saber si hay alguna forma de que si con el monthcalendar al dimensionarlo para que aparezcan solo dos meses, me aparezca el mes en curso a la izquierda y el siguiente a la derecha.

[chutipascal]

A simple vista no, pero puedes 'pegar' dos calendarios en tu form y controlarlos como sigue.

MonthCalendar1 Para el que quieres que sea un mes despues y MonthCalendar2 para el mes en curso.

procedure TForm1.FormCreate(Sender: TObject);
begin
  MonthCalendar1.ShowTOday:=False;
  MonthCalendar1.ShowTOdayCircle:=False;
  MonthCalendar1.date:=IncMonth(MonthCalendar2.Date);
end;

procedure TForm1.MonthCalendar2Click(Sender: TObject);
begin
  MonthCalendar1.date:=IncMonth(MonthCalendar2.Date, 1);
end;

procedure TForm1.MonthCalendar1Click(Sender: TObject);
begin
  MonthCalendar2.date:=IncMonth(MonthCalendar1.Date, -1);
end;

Espero que te sirva, un saludo.
Pascal.