|
Registriert seit: 12. Okt 2016
235 Beiträge
Delphi 10 Seattle Professional
|
TSphere mithilfe MotionSensor drehen?
21. Apr 2017, 19:50
Ich würde gerne meine TSphere mithilfe meines MotionSensors drehen und habe diesen code in einen Timer mit 100ms geschrieben:
procedure TFormMain.Timer1Timer(Sender: TObject);
begin
//Sphere1.RotationAngle.X := 360*MotionSensor1.Sensor.accelerationX;
//Sphere1.RotationAngle.Y := 360*MotionSensor1.Sensor.accelerationY;
//Sphere1.RotationAngle.Z := 360*MotionSensor1.Sensor.accelerationZ;
Dummy1.RotationAngle.X := 360*MotionSensor1.Sensor.accelerationX;
Dummy1.RotationAngle.Y := 360*MotionSensor1.Sensor.accelerationY;
Dummy1.RotationAngle.Z := 360*MotionSensor1.Sensor.accelerationZ;
end;
aber leider will das nicht so ganz..
Andere schreiben diesen code in den Motionsensor unter events in OnDataChanged aber dieses Ereignis gibt es bei mir nicht.. hat jemand eine Idee?
|