编程论坛 → Delphi论坛

求人指点,内附Timer元件代码.

tw920217 发布于 2011-07-13 14:01， 735 次点击

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

5 回复

#2

yuutian2011-07-13 20:52

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

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

#3

tw9202172011-07-14 08:07

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

#4

冰蟾子2011-07-14 22:40

程序代码：

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 编辑 ]

#5

s9123601012011-07-31 14:08

直接结束就OK了

1