我想实现的功能就是一个button按钮,显示 '开始运行',点击完激活timer,然后button显示 '结束',当点击结束的时候,停止timer,button显示 '开始运行'!就这么一个过程!希望高手可以帮下我
解决方案 »
- 怎么同步树节点名称?
- 求DVD刻录控件!急!
- DsPack播放Flash格式
- 今天参加了电视台数据传输中心的面试,太假了!!!!我无奈!!!
- sql求救!!!!!!!!!!!!!!!!!!!!
- 在远程的计算机上运行服务器的问题,请教!!!!!!!!!!!
- 读股票行情数据?
- 我有一个梦想------程序员下岗-----快活DIY开发者之梦(转自UMLCHINA论坛)
- 怎样把程序最小化到系统栏,缩为一个图标。我已经让程序显示系统栏的图标了,可是最小化和最大化怎么办?我希望程序最小化后任务栏就不显
- 给你一个字符串s, s中有一个字符't'我想知道't'的索引,用什么函数?
- 请问如何给窗体添加Frame控件?
- 请问如何修改EXE文件的图标?
begin
with TButton(Sender) do begin
case Tag of
0 : Caption := '结束';
1 : Caption := '开始运行';
end;
Timer1.Enabled := not Boolean(Tag);
Tag := Byte(Timer1.Enabled);
end;
end;
begin
Timer1.Enabled := False;
Button1.Caption := '开始运行';
end;
begin
If button.Caption='开始运行' then
begin
Timer.Enabled:=True;
button.Caption:='结束';
end
else
begin
Timer.Enabled:=False;
button.Caption:='开始运行';
end;
end;