永发信息网

如何使用Delphi7里timer控件?

答案:1  悬赏:70  手机版
解决时间 2021-08-12 02:52

button1的标题是 开始

按下button1后

开始计时

button1的标题改成 停止

再次按下button1后

停止计时

button1的标题改成 开始

计时始终显示在edit1.text

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

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

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

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

 

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

我实在搜不到了

 

刚学,照顾下

最佳答案

假定你的控件名为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;


我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
我老是觉得我什么都不在乎,是不是我心理出问
曾都区随州雅韵轩茶楼我想知道这个在什么地方
聊城铁通宽带用户名格式
DNF里剑魂、红眼还有瞎子分别有什么优缺点啊
油性皮肤用香皂洗脸可以吗
6.5版AU刷徽章条件满足怎么领不了?
贵州遵义考驾照费用
我的女儿张雨蝶-2010年农历6月28,不知道怎么
守护猫娘会出第二季吗?
AVA怎么开启影子啊
E-Mail地址怎么填写
我是大侠吗,你们说
现在做什么生意
南京哪里有卖正版蒙奇奇的!~
汉阳区武汉俏阿瑶黄焖鸡瓦香鸡地址是什么,有
推荐资讯
我的名字叫文文, 想请大家帮我想一个可爱点
有谁做梦梦到过白色的猫头鹰?我经常梦到,该
汉字的美丽之处
祭祀、曾經的過去、?
冷水江市娄底蓝天少儿全能培训中心这个地址在
第一场正式被体坛接受的篮球比赛在那个国家进
不同档次的车配不同档次的润滑油对吗?
怎样使用手机开通会员 而且不需要密码
东西湖区武汉北京啤酒烤鸭(六顺路)这个地址怎
听什么歌会寂寞
求2010年9月全国计算机二级c语言笔试和上机题
中暑要怎么办?
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?