Resaltar semana en un TCalendar
 

Saludos,

Mi consulta es saber como en un componente tipo calendario mensual, al seleccionar cualquier día, se resalte dicha semana.

¿Me ayudan?

MonthCalendar marcar una semana al seleccionar un día cualquiera de esta...

Hola MAXIUM.

Realmente el TMonthCalendar no es de los componentes mas dúctiles para trabajar....

Fijate si esta idea te puede servir como base:

Código Delphi [-]
...
implementation

uses DateUtils;

var
  SelectedDate : TDate; 

procedure TForm1.FormCreate(Sender: TObject);
begin
  MonthCalendar1.MultiSelect := True;
end;

procedure TForm1.MonthCalendar1Click(Sender: TObject);
var
  ds: Word;
  i : Integer;
  dt: TDate;
begin
  SelectedDate := MonthCalendar1.Date;
  dt := SelectedDate;
  ds := DayOfTheWeek(dt);
  for i := 1 to ds-1 do dt := IncDay(dt, -1);
  MonthCalendar1.Date    := dt;
  for i := DayOf(dt) to DayOf(dt)+5 do dt := IncDay(dt,1);
  MonthCalendar1.EndDate := dt;
end;

Para consultar fecha seleccionada, usa el valor de la variable SelectedDate.

Saludos :)

De maravillas. Muchas gracias.