Ver Mensaje Individual
  #2  
Antiguo 06-10-2003
chutipascal chutipascal is offline
Miembro
 
Registrado: may 2003
Ubicación: Mallorca
Posts: 194
Reputación: 24
chutipascal Va por buen camino
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.
__________________
Si tu foto no es buena, es que no estabas lo suficientemente cerca.

Robert Cappa (fotografo)
Responder Con Cita