如合使我的程序自动得到当前系统时间? 使用回调函数吗? 能否给个例子,偶不懂回调函数啊?

Question

加入个 TIMER，定时把系统时间 （Now()）与你设定的时间比较 ，一到就ok?

Answer 1

 CoolTrayIcon1.ShowMainForm;
end;procedure TForm1.Timer1Timer(Sender: TObject);
var
  Present: TDateTime;
  Hour, Min, Sec, MSec: Word;
begin
   Present:= Now;
   DecodeTime(Present, Hour, Min, Sec, MSec);
  if ((hour=Edit3.Value)
     and(min=edit1.Value)) then// 到所定时间
     begin
       timer1.Enabled:=false;   //关定时
      // sosomething;
     end;
end;