如何使用 TimeEdit 触发通知

Question

我尝试使用 TimeEdit 在特定时间触发通知，但没有成功！ 我使用的代码..

try
MyNot.Name := Edit1.Text;
MyNot.AlertBody := Edit2.Text;
MyNot.FireDate := Now + TimeEdit1.Time;
NotificationCenter1.ScheduleNotification(MyNot);
Finally
MyNot.DisposeOf;

我正在使用 Delphi10 Seattle Update1。

Answer 1

Now() 返回代表当前时钟日期/时间的TDateTime。然后，您将添加用户输入的相对于当前日期/时间的时间。例如，如果用户输入00:05:00，您将在当前日期/时间上增加 5 分钟。

如果您希望在当前日期的特定时间触发通知，请使用Date() 函数而不是Now() 函数，以便添加相对于午夜的输入时间(00:00:00am):

MyNot.FireDate := Date + TimeEdit1.Time;

或者，您可以改用SysUtils.ReplaceTime() 函数：

var
  dt: TDateTime;

dt := Date;
ReplaceTime(dt, TimeEdit1.Time);
MyNot.FireDate := dt;

这有一个额外的好处，您可以配置您想要的任何日期，例如从SysUtils.EncodeDate() 函数：

var
  wYear, wMonth, wDay: Word;
  dt: TDateTime;

wYear := ...;
wMonth := ...;
wDay := ...;
dt := EncodeDate(wYear, wMonth, wDay) + TimeEdit1.Time;
MyNot.FireDate := dt;

或者：

var
  wYear, wMonth, wDay: Word;
  dt: TDateTime;

wYear := ...;
wMonth := ...;
wDay := ...;
dt := EncodeDate(wYear, wMonth, wDay);
ReplaceTime(dt, TimeEdit1.Time);
MyNot.FireDate := dt;