| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 626 人关注过本帖
标题:Timer元件怎么使用的,求大虾指点
只看楼主 加入收藏
tw920217
Rank: 4
来 自:湖南
等 级:业余侠客
帖 子:64
专家分:217
注 册:2011-6-2
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:4 
Timer元件怎么使用的,求大虾指点
我有2个按钮.我希望用一个Timer元件设定成每天早上8点自动执行两个按钮事件.
但是现在我不知道怎么用Timer元件调用当前时间是否为早上8点.还有就是if Time.Now is 8.00 按钮事件怎么实现?

求好心人指点一二嗄....
2011-07-01 08:23
yuutian
Rank: 7Rank: 7Rank: 7
等 级:黑侠
帖 子:137
专家分:686
注 册:2010-10-27
收藏
得分:0 
你可以参考一下,整点报时的那种例子,在整点时,触发事件。
2011-07-01 09:04
tw920217
Rank: 4
来 自:湖南
等 级:业余侠客
帖 子:64
专家分:217
注 册:2011-6-2
收藏
得分:0 
我这边不能下载 .  搜到了也下载不了.  我只需要知道.  Timer元件怎样对应获得时间.

Best   Regards
公司分機:886-03-250-8800-2156
手機:15818580357  聯系地址:深圳
2011-07-01 13:11
zin5970
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:29
专家分:195
注 册:2008-10-10
收藏
得分:15 
//在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;
2011-07-01 15:22
yuutian
Rank: 7Rank: 7Rank: 7
等 级:黑侠
帖 子:137
专家分:686
注 册:2010-10-27
收藏
得分:5 
这个可以实现,你在修改一下就可以符合你的要求了
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.
2011-07-01 15:48
快速回复:Timer元件怎么使用的,求大虾指点
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016310 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved