unicalendarpanel的使用

最新推荐文章于 2025-06-12 17:10:57 发布

winfredzhang

最新推荐文章于 2025-06-12 17:10:57 发布

阅读量916

点赞数

CC 4.0 BY-SA版权

分类专栏： delphi rio unigui 文章标签： CalendarPanel 用法

本文链接：https://blog.csdn.net/winniezhang/article/details/105566873

delphi rio 同时被 2 个专栏收录

89 篇文章

订阅专栏

unigui

60 篇文章

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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 := UniCalendarPanel1.Events.Add;
  E.CalendarId := 5;
  E.Title := '上午12时项目名称45';
  E.IsAllDay := True;
  E.StartDate := Date + 5.0;
  E.EndDate := date+7.0;//E.StartDate;

end;