TDateTimePicker mit Wochennummern erzeugt shortdate

[KodeZwerg]

Zitat von NoGAD:

Delphi-Quellcode:

Constructor TTRM_DateTimePicker.Create(AOwner: tComponent);
begin
  Inherited Create(AOwner);
  FExtraSpaceX := 12;
  FExtraSpaceY := 12;
  WeekNumbers := True;
  Self.Date := Now;
  DateFormat := dfLong;
end;

Ich würde WeekNumbers := True; nicht so verwenden.

Delphi-Quellcode:

  Self.WeekNumbers := True;
oder
  FWeekNumbers := True;