|
|
我想实现根据按键不同播放不同的角色动画,用官方自带的例子修改的。
判断按键部分:
if isUp in MainForm.DXInput1.States then
begin
Y := Y - (300/1000)*MoveCount;
WalkAnime(3, True);
end;
if isDown in MainForm.DXInput1.States then
begin
Y := Y + (300/1000)*MoveCount;
WalkAnime(0, True);
end;
...
播放动画部分:
procedure TPlayerSprite.WalkAnime(Direction: Integer);
begin
AnimCount := 4;
AnimLooped := False;
AnimSpeed := 5/1000;
AnimPos := 0;
AnimStart := Direction * 4;
end;
结果,角色移动结束后动画才开始执行,角色移动的过程中却没有动画,请问要怎么解决这个问题? |
|