delphi 循环 按钮

来源：百度知道 编辑：UC知道 时间：2024/05/17 00:50:00
一个按钮起到 播放/停止作用
代码怎么写

这个怎么写都行了，就在按钮的click上写
if button1.caption='播放' then
begin
xxx.play;//播放
button1.caption:='停止';
end else
begin
xxx.stop;//停止
button1.caption:='播放';
end;

定义一个布尔值看当前的状态
FIsPlaying:Boolean;

按钮事件中
FIsPlaying := not FIsPlaying;
if FIsPlaying then
begin
//播放代码....
end
else being
//停止播放代码....
end;