Resaltar semana en un TCalendar

[ecfisa]

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