procedure TMainForm.UniCalendarPanel1DayClick(Sender: TUniCalendarPanel;ADate: TDateTime; Allday: Boolean);
beginEventEditForm.Calenedar:=UniCalendarPanel1;EventEditForm.ClearEvent;EventEditForm.SetDate(ADate, ADate);EventEditForm.ShowModal;
end;procedure TMainForm.UniCalendarPanel1EventClick(Sender: TUniCalendarPanel;AEventId: Integer; AEvent: TUniCalendarEvent);
beginEventEditForm.Calenedar:=UniCalendarPanel1;EventEditForm.SetEvent(AEvent);EventEditForm.ShowModal;
end;procedure TMainForm.UniCalendarPanel1RangeSelect(Sender: TUniCalendarPanel;AStarDate, AEndDate: TDateTime);
beginEventEditForm.Calenedar:=UniCalendarPanel1;EventEditForm.ClearEvent;EventEditForm.SetDate(AStarDate, AEndDate);EventEditForm.ShowModal;
end;

procedure TMainForm.UniFormCreate(Sender: TObject);
varE : TUniCalendarEvent;
beginUniCalendar1.Date:=Date;UniCalendarPanel1.StartDate:=Date;E:=UniCalendarPanel1.Events.Add; //添加日程E.CalendarId:=1;                 //日程idE.Title:='Meeting';              //日程标题E.StartDate:=Date;               //开始时间E.EndDate:=Date+0.1;             //结束时间E:=UniCalendarPanel1.Events.Add;E.CalendarId:=2;E.Title:='Meeting-2';E.StartDate:=Date+1;E.EndDate:=Date+1.1;E.IsAllDay:=True;E:=UniCalendarPanel1.Events.Add;E.CalendarId:=3;E.Title:='Meeting-3';E.StartDate:=Date+1.1;E.EndDate:=Date+1.2;E:=UniCalendarPanel1.Events.Add;E.CalendarId:=1;E.Title:='Meeting-4';E.StartDate:=Date+2.1;E.EndDate:=Date+2.2;E.Reminder:='In 15 Minutes';
end;

 ...  with UniMainModule.qryDetail dobeginFirst;while not eof dobegin      ...if FieldByName('缺勤数').AsInteger = 0 thenbeginE := UniCalendarPanel1.Events.Add;E.Title := '出勤';E.StartDate := nStart;E.EndDate := nStart;E.IsAllDay:=True;end;Inc(nid);next;end;First;end;