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分....

timer.enabled:=true  是让timer组件开始计时。
timer.enabled:=fasle 是让timer组件停止计时。

  你程序在8点执行就可以了吗，过了8点就不会执行  了

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

var
  time: TDateTime;
begin
  time := StrToTime('8:00:00');
  If StrToTime(TimeToStr(Now)) = time then
  begin
      Btn_GroupTrans.Click;
      Timer1.Enabled:= False;
  end;
end;

[ 本帖最后由 冰蟾子 于 2011-7-14 22:46 编辑 ]

直接 结束 就OK了