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