永发信息网

如何使用Delphi7里timer控件?

答案:1  悬赏:70  手机版
解决时间 2021-08-12 02:52
  • 提问者网友:留有余香
  • 2021-08-11 08:36

button1的标题是 开始

按下button1后

开始计时

button1的标题改成 停止

再次按下button1后

停止计时

button1的标题改成 开始

计时始终显示在edit1.text

--------------------------------

②按下button2,每隔1秒钟edit2.text里的数+1

-------------------------------------------------------

给个代码,我好照着研究下

 

如果懒得给代码,那就给个关于D7里timer控件的基础教程

我实在搜不到了

 

刚学,照顾下

最佳答案
  • 五星知识达人网友:平生事
  • 2021-08-11 09:07

假定你的控件名为Timer1


在窗体设计器里将Timer1的初始属性处Enabled改成false


把它的时间间隔值改成1000


在公共变量声明里声明个integer变量 TimeVal1


在公共变量声明里声明个boolean变量 ShowTimeAdd


在form_create里初始化一下它:=false


在button1的click事件里:


if not Timer1.Enabled then begin


Timer1.Enabled := true;


button1.caption := '停止';


end else begin


Timer1.Enabled := false;


button1.caption := '开始';


end;


在Timer1的计时事件里:


TimeVal := TimeVal + 1;


edit1.text := (这里自己把TimeVal代表的秒数转换成你要表达的时间格式了)


if ShowTimeAdd then


 edit2.text := StrToInt(edit2.text) + 1;(如果想这里不出错,那么请确认你把edit2.text的默认初始text设置为数字了)


在Timer2的Click事件里:


ShowTimeAdd = true;


我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯