Angezeigte Tage in TMonthCalendar

[Union]

So sollte das gehen:

Delphi-Quellcode:

procedure TForm1.GetCalRange;
type
   TTimeRangeArray = Array[0..1] of _SYSTEMTIME;
   PTimeRangeArray = ^TTimeRangeArray;
var
   TimeRange : PTimeRangeArray;
begin
   GetMem(TimeRange, SizeOf(_SYSTEMTIME) * 2);
   ZeroMemory(TimeRange, sizeof(_SYSTEMTIME)*2);
   try
      SendMessage(MonthCalendar1.Handle, MCM_GETMONTHRANGE, GMR_DAYSTATE, integer(TimeRange));

      lblStartDate.Caption := DateToStr(SystemTimeToDateTime(TimeRange[0]));
      lblEndDate.Caption   := DateToStr(SystemTimeToDateTime(TimeRange[1]));
   finally
      FreeMem(TimeRange);
   end;
end;