不明白你在说什么。。。
如果大园动和小园动成关系的话。。。
你可以在小园的DoMove过程中写关系式
TPlayerSprite = class(TImageSprite)
Protected
procedure DoMove(MoveCount: Integer); override;
procedure DoCollision(Sprite: TSprite; var Done: Boolean); override;
End;
var
BigSprite:TPlayerSprite;
SmallSprite:TPlayerSprite;
Procedure TForm1.SmallSprite.DoMove(MoveCount: Integer);
Begin
SmallSprite.x:=bigSprite.x+50;
SmallSPrite.y:=bigSprite.y+50;
End;
应该是这样。。如果不好使就直接用TPlayerSprite.Domove;