Resaltar semana en un TCalendar

[MAXIUM]

Saludos,

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

¿Me ayudan?

[MAXIUM]

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

[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:

...
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 :)

[MAXIUM]

De maravillas. Muchas gracias.