TDateTimePicker - Kalenderwoche anzeigen

[mandumoal]

Hi!

Ich Versuche mich gerade daran in der TDateTimePicker Komponente die Kalenderwoche anzeigen zu lassen.

Ich hab im Inet ein Code-Schnipsel für c++ gefunden der anscheinend genau das macht:

Code:

  // Handle des Monatskalenders besorgen:
  HWND hMonthCal = DateTime_GetMonthCal(DateTimePicker1->Handle);
  // Anzeige der Kalenderwochen aktivieren:
  SetWindowLong(hMonthCal, GWL_STYLE, GetWindowLong(
    hMonthCal, GWL_STYLE) | MCS_WEEKNUMBERS);

wenn ich versuche das in Delphi zu machen dann stosse ich auf das Problem, dass er MCS_Weeknumbers nicht kennt.

Delphi-Quellcode:

  // Handle des Monatskalenders besorgen:
  Handle := DateTimePicker1.Handle;
  // Anzeige der Kalenderwochen aktivieren:
  SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) or MCS_WEEKNUMBERS);

Ich habe mal in der SDK geschaut und die kennen diesen Style auch nicht.
Die kennen prinzipiell keine Sachen mit MCS_ ...
Sondern nur WS_...
WS_WEEKNUMBERS hab ich natürlcih probiert ... geht nicht.
Wäre denn wenigstens der Operatoror richtig? oder muss ich addieren?

Habt ihr eine Idee wie ich das hinbekomme?

Bin für jede Hilfe unendlich dankbar!

mfg mandumoal

[Duffy]

Hallo mandumoal,
anbei ein Beispiel wie es geht. Aus dem Sourcecode wirst Du bestimmt selber schlau

bye
Claus

[toms]

Hi,

So geht's.

[Duffy]

@toms

Zitat von toms:

Hi,

So geht's.

siehe oben, da haste den selben Code als Demo ...

bye
Claus

[mandumoal]

Thanks a lot!!!