procedure Tproductivity.tmrTimer(Sender: TObject);
begin

  if  Formatdatetime('hh:mm',now) >= '08:00' then
   begin
     tmr.Enabled := false;
     Btn_GroupTransClick(Sender);
     tmr.Enabled := True;
   end;
end.

PS:
问题1:现在需要用Timer元件获得当前时间是否为每天的8:00以后,如果是,就执行一次Btn_GroupTransClick按钮事件一次.(注意:我只要执行一次,不要执行多次.但是我获取不到执行一次程序的时间是多少.)
问题2:Timer.Enabled是什么意思.

如有人帮助.在此谢过.    致谢20+30分....

我主要是不会写这个代码 ...  上面的贴的代码确实是我写的 . 但是我用Delphi这个判断不大会用