animate

runlwx 发布于 2013-10-22 21:51， 2478 次点击

  if button1.Caption='播放' then
animate1.play(1,31,5);
button1.Caption:='停止'   ;
else

animate1.Stop;
button1.Caption:='播放' ;
按钮开始是播放  按下去变停止
按停止变播放

5 回复

runlwx2013-10-22 22:00

这个代码有没有问题啊

haiou3272013-10-22 22:49

程序代码：

if button1.Caption = '播放' then
begin
  animate1.play(1, 31, 5);
  button1.Caption := '停止';
end
else
begin
  animate1.Stop;
  button1.Caption := '播放';
end;

runlwx2013-10-26 21:18

回复 2楼 runlwx

只有本站会员才能查看附件，请登录

还是不行啊

你先说2013-10-26 23:09

else上边那个end后边的分号要去掉！楼主最好在复习一下选择语句的用法，语法规则！
if ..then
begin
复合句
end(后边不能加分号)
else

end;

[ 本帖最后由你先说于 2013-10-26 23:12 编辑 ]

runlwx2013-10-27 10:17

回复 4楼 runlwx

可以啦！！！真是感谢你了，是该回去看看这些基本语法啊