unicalendarpanel的使用

UniCalendar组件事件添加示例

最新推荐文章于 2025-09-14 12:00:04 发布

原创

最新推荐文章于 2025-09-14 12:00:04 发布 · 933 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#CalendarPanel #用法

本文演示了如何使用Delphi中的UniCalendar组件创建并添加多个日历事件，包括设置事件标题、开始和结束日期、全日事件等属性。

1、代码。

procedure TMainForm.UniFormCreate(Sender: TObject);
var
  E : TUniCalendarEvent;
begin
  UniCalendar1.Date := Date;
  UniCalendarPanel1.StartDate := Date;

  E := UniCalendarPanel1.Events.Add;
  E.CalendarId := 1;
  E.Title := '上午12时项目名称41';
  E.StartDate := StrToDate('2020-05-01');
  E.EndDate := StrToDate('2020-05-04');//ate+1.0; //E.StartDate

  E.IsAllDay := false;

  E := UniCalendarPanel1.Events.Add;
  E.CalendarId := 2;
  E.Title := '上午12时项目名称42';
  E.StartDate := Date;
  E.EndDate :=Date+2.0;    //E.StartDate
  E.IsAllDay := True;

  E := UniCalendarPanel1.Events.Add;
  E.CalendarId := 3;
  E.Title := '上午12时项目名称43';
  E.StartDate := Date + 2.0 ;//+ StrToTime('15:30');
  E.EndDate := Date + 5.0 ;//+ StrToTime('16:30');

  E := UniCalendarPanel1.Events.Add;
  E.CalendarId := 4;
  E.Title := '上午12时项目名称44';
  E.StartDate := Date + 4.0 ;//+ StrToTime('10:00');
  E.EndDate := Date + 6.0 ;//+ StrToTime('12:00');

  E := UniCalendarPanel