本文整理自网络,侵删。
if Button5.caption='开始' thenbeginButton5.caption:='停止';Timer1.Enabled:=true;Timer1.Interval:=5000;endelsebeginButton5.caption:='开始';Timer1.Enabled:=false;Timer1.Interval:=0;end;
相关阅读 >>
Delphi twebbrowser与嵌入youtube视频崩溃
Delphi windows 编程[17] - 更换菜单: loadmenu、destroymenu、setmenu
更多相关阅读请进入《Delphi》频道 >>