CalendarPane

學習CalendarPanel控件的常用事件。

DayClick(...) //點擊日期塊空白部分觸發
EventClick(...) //點擊日期塊上事件觸發
RangeSelect(...) //選擇多個日期觸發

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;

轉載于:https://www.cnblogs.com/fengxb/p/2845680.html

總結

以上是生活随笔為你收集整理的Demo学习： CalendarPanel的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。