Foros Club Delphi - Duda con el monthcalendar

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Duda con el monthcalendar (https://www.clubdelphi.com/foros/showthread.php?t=4209)

Duda con el monthcalendar

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.

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.

Código:

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.