怎么让程序运行5分钟后开始使一个计时器开始计时? 怎么让程序运行5分钟后开始使一个计时器开始计时? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 不用定计时器,你怎么知道到了5分钟了?先设计时器的Interval为5*60*1000然后取第二次的Timer事件干其它的事情,或者直接就计时到5分钟不干活然后再做你要做的事情 放两个timer,其中一Timer1的属性:Interval:=300000//5分钟,Enabled:=True;另一个Timer2的属性:Interval:=XXX//5分钟以后计时器的间隔时间,Enabled:=False;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~例如:procedure TForm1.Timer2Timer(Sender: TObject);beginform1.Label1.Caption:=datetimetostr(now);end;procedure TForm1.Timer1Timer(Sender: TObject);beginform1.Timer1.Enabled:=false;form1.Timer2.Enabled:=true;end; 千斤散尽还复来 如何将Unicode编码转换成中文GB2312编码 关于多态问题 急--oop高手请进 OutLookBarpro第三方控件调试问题 求简单SELECT 语句 800分解决以下问题: (详情见帖)先贴出400分... 问题解决再加400 win98+delphi6好?还是win2000+delphi6好? 大家幫忙看看這段代碼,是關於動態建立form的問題? 谁给我一段好代码,关于 DBGrid 100分,问一个sql变量赋值给edit的小问题 小妹求教:请问在DELPHI6中,用TIdMessage作为发送邮件内容时,为什么有时收到的邮件内容会不全? 关于时间判断的问题。
另一个Timer2的属性:Interval:=XXX//5分钟以后计时器的间隔时间,Enabled:=False;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
例如:
procedure TForm1.Timer2Timer(Sender: TObject);
begin
form1.Label1.Caption:=datetimetostr(now);
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
form1.Timer1.Enabled:=false;
form1.Timer2.Enabled:=true;
end;