定时提醒功能怎么实现？

Question

我用的控件是datetimepicker1,datetimepicker2,一个设置为日期类型，一个是时间类型
还有一个timer控件我要的功能是:在datetimepicker1,datetimepicker2设置日期，时间要它与系统的日期，时间比较，当到了设置的日期，时间的时候，就触发提醒
（比如showmessage());请问怎么实现？

Answer 1

{提前醒一分钟}
procedure ShowMsg;
var
  i: Integer;
begin
  while i< 60 then
  begin
    i := i + 1;
    Sleep(1000);
    ShowMessage('Yeah!');
  end;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if DateTimePicker1.Date = Date() then
    if DateTimePicker2.Time = Time() then
      ShowMsg;
end;

Answer 2

定时器设为每分钟触发一次，在Timer事件中比较系统时间和设定时间。

Answer 3

sorry! while i< 60 then -> while i< 60 do

Answer 4

sorry again，上面代码测试不过，重新改写如下：
procedure ShowMsg;
var
  i: Integer;
begin
  i := 0;
  while i < 10 do
  begin
    i := i + 1;
    Sleep(1000);
    Form1.Edit1.Text := IntToStr(i);
    Form1.Edit1.Update;
  end;
  Form1.Edit1.Text := '已提示完毕';
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if DateToStr(Date()) = DateToStr(DateTimePicker1.Date) then
    if TimeToStr(Time()) = TimeToStr(DateTimePicker2.Time) then
      ShowMsg;
end;