UniCalendarPanel1日历待办事件

C:\Program Files (x86)\FMSoft\Framework\uniGUI\Demos\Desktop\CalendarPanel

 代码添加事件

var
E : TUniCalendarEvent;

UniCalendarPanel1.Calendars.Add;
  E := UniCalendarPanel1.Events.Add;
  E.CalendarId := 6;
  E.Title := 'adsadMeeting-5';
  E.StartDate := Date + 4.0 + StrToTime('15:00');
  E.EndDate := Date + 4.0 + StrToTime('16:00');

 某天多个任务，在上面显示还有多任务

UniCalendarPanel -> ClientEvents -> UniEvents ->

function beforeInit(sender, config)
{
    config.views.month.showOverflow = 'top';
}

 枚举所有事件

for I  :=  0 to Calenedar.Events.Count - 1 do  begin
    UniListBox1.Items.Add( Calenedar.Events[I].EventId.ToString  + ' '
                        + Calenedar.Events[I].Title            + ' '
                        + datetimetostr( Calenedar.Events[I].StartDate ) + '-'
                        + datetimetostr( Calenedar.Events[I].EndDate )
                                  );
    end;