本文整理自网络,侵删。
if Button5.caption='开始' thenbeginButton5.caption:='停止';Timer1.Enabled:=true;Timer1.Interval:=5000;endelsebeginButton5.caption:='开始';Timer1.Enabled:=false;Timer1.Interval:=0;end;
相关阅读 >>
Delphi 2009 之 tcategorypanelgroup[2]: headeralignment、gradientdirection
Delphi getprocessmemoryinfo获取进程占用内存大小
Delphi windows 编程[6] - 学习窗体生成的过程六: 最终的代码!
Delphi windows 编程[11] - wm_size 消息
更多相关阅读请进入《Delphi》频道 >>