TMonthCalendar

Hvis du har år og måned tror jeg du selv kan finde ud af hvilke dato'er
du har i calendar.

Label1.caption:= FormatDateTime('mmmm d, yyyy, ',MonthCalendar1.Date);

Stoney

hmmnn.. ja ... Det får man ud af ikke at udtrykke sig klart .....

Prøv at smide dit kode ind i OnGetMonthInfo eventet .... Så viser den ikke rigtigt længere .....

Kan du knække den .. fordi det er der jeg skal bruge mit kode ...

Jens B

Løsningen ligger i at overstyre

    procedure CNNotify(var Message: TWMNotify); message CN_NOTIFY;

i en nedarvet klasse. Den korekte måned kan udregnes således :

procedure TNewMonthCalendar.CNNotify(var Message: TWMNotify);
begin
  with Message, NMHdr^ do
  begin
    case code of
      MCN_GETDAYSTATE:
      begin
        with PNmDayState(NMHdr)^ do
        begin
          Application.MainForm.Caption := IntToStr(stStart.wMonth mod 12 + 1 );
          //

        end;
      end
    end;
  end;

  inherited;

end;


Jens B

Hej Jens

Kan du ikke lige give et mere detaljeret eksempel ?

Jeg går ud fra du også leger med Martin Linds's "helligdage".

Hvis du vil og vil have point må du lige sige til ?

Stoney

Jo jeg skal nok komme med noget mere detaljeret .. Jeg sidder og roder med at tegne helligdage op i en Kalender ...

Det volder en del problemer når brugeren skifter årstal. Når jeg har noget der virker skal jeg nok offenligøre det .... Hvis du ikke kan vente kan du sende mig en mail så får du mit kode udleveret.


Jens B