... var glb_oldX,glb_oldY:Integer; //新加两个全局变量定义 ...
//在下面的事件中添加控制
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if BallCtrl.GameOn = False then exit; BallCtrl.BallAt(X, Y); BallCtrl.MouseMoveOnABall;
//新加鼠标右键控制旋转 if (Shift=[ssRight]) then begin BallCtrl.ChangeXDeg(sign(glb_oldY-Y)); BallCtrl.ChangeYDeg(sign(glb_oldX-X)); glb_oldX:=X; glb_oldY:=Y end; end;
