Timer元件怎么使用的,求大虾指点

tw920217 发布于 2011-07-01 08:23， 626 次点击

我有2个按钮.我希望用一个Timer元件设定成每天早上8点自动执行两个按钮事件.
但是现在我不知道怎么用Timer元件调用当前时间是否为早上8点.还有就是if Time.Now is 8.00 按钮事件怎么实现?

求好心人指点一二嗄....

4 回复

yuutian2011-07-01 09:04

你可以参考一下，整点报时的那种例子，在整点时，触发事件。

tw9202172011-07-01 13:11

我这边不能下载 . 搜到了也下载不了. 我只需要知道. Timer元件怎样对应获得时间.

zin59702011-07-01 15:22

//在Timer元件的OnTimer事件里判断Now的值啊，Delphi里用Now表示当前日期时间

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Formatdatetime('hh:mm:ss',now) = '08:00:00' then
Form1.Caption := '现在是8：00';
end;

yuutian2011-07-01 15:48

这个可以实现，你在修改一下就可以符合你的要求了
procedure TForm1.Timer1Timer(Sender: TObject);
var
  sj1:string;
  bjsj1:string;
begin
   label1.Caption:=timetostr(now);
   sj1:=formatdatetime('hh:mm',now);
   bjsj1:=formatdatetime('hh:mm',datetimepicker1.Time);
   if sj1=bjsj1 then//当时间相等时，执行窗体关闭，不相等时，窗体一直显示，
      form1.Close
   else
      form1.Show;
end;

end.