lunes primer dia de la semana

[dtomeysoto]

Hola amigos, otra vez recurro a ustedes.

Necesito cambiar o que me aparezca en un componente de tipo TDateTimePicker el lunes como el primer día de la semana. Será posible esto?

Gracias.

[[white_zombie]]

Hola, creo que predeterminado ya viene el lunes como primer dia de la semana pero si no con la propiedad FirstDayOfWeek estaria solucionado.

Código Delphi [-]
MonthCalendar1.FirstDayOfWeek:=dowMonday;

Un saludo.

[dtomeysoto]

Amigo creo que en un TDateTimePicker no puedo usar esa propiedad porque ha sido declarada como published en la clase superior.

Alguna otra recomendación?

[*Caro*]

Empezado por dtomeysoto

Alguna otra recomendación?

Hola, puedes hacerlo utilizando las funciones de la unit DateUtils.

Código Delphi [-]
var
 FchActual : TDateTime;
begin
 FchActual := Date;
 DateTimePicker1.Date := IncDay(FchActual, - (DayOfTheWeek(FchActual)-1));

Saluditos

[roman]

Empezado por dtomeysoto

Amigo creo que en un TDateTimePicker no puedo usar esa propiedad porque [no] ha sido declarada como published en la clase superior.

Puedes "desproteger" la propiedad y asignarla en el evento OnDropDown:

Código Delphi [-]
type
  TDateTimePicker = class(ComCtrls.TDateTimePicker);

procedure TForm1.DateTimePicker1DropDown(Sender: TObject);
begin
  TDateTimePicker(DateTimePicker1).FirstDayOfWeek := dowMonday;
end;

// Saludos

[dtomeysoto]

Román gracias a tu respuesta hice lo que quería hacer.
Muchas gracias.