本文整理自网络,侵删。
if Button5.caption='开始' thenbeginButton5.caption:='停止';Timer1.Enabled:=true;Timer1.Interval:=5000;endelsebeginButton5.caption:='开始';Timer1.Enabled:=false;Timer1.Interval:=0;end;
相关阅读 >>
Delphi win32_diskdrive 硬盘 参数说明
Delphi xe7实现获取程序是否已管理员模式运行以及运行的windows用户名
Delphi pagecontrol.ttabsheet与drivecombobox.items同步
更多相关阅读请进入《Delphi》频道 >>