①
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;