Просмотр камеры никогда не отображается

Question

с использованием firemonkey, у меня есть несколько кубов внутри viewport3d вместе с камерой и светом.

У меня есть несколько треков, набор для управления положением и набор для управления углом и меткой для каждого, чтобы вернуть местоположение камеры.

Проблема заключается в том, что я перемещаю трекболы, обновления x, y, z камеры, но никогда не перемещает экран.

procedure TForm2.TrackBar_PositionChange(Sender: TObject); 
    begin 
     Camera1.Position.X := TrackBar_PositionX.Value; 
     Camera1.Position.Y := TrackBar_PositionY.Value; 
     Camera1.Position.Z := TrackBar_PositionZ.Value; 
    { Updating the displayed values of the coordinates } 
    Label_Position.Text := Format('X: %d, Y: %d, Z: %d', 
     [Round(Camera1.Position.X), Round(Camera1.Position.Y), 
     Round(Camera1.Position.Z)]); 
    end; 


procedure TForm2.TrackBar_RotationAngleChange(Sender: TObject); 
    begin 
     Camera1.RotationAngle.X := TrackBar_RotationAngleX.Value; 
     Camera1.RotationAngle.Y := TrackBar_RotationAngleY.Value; 
     Camera1.RotationAngle.Z := TrackBar_RotationAngleZ.Value; 
    { Updating the displayed values of the coordinates } 
    Label_RotationAngle.Text := Format('X: %d, Y: %d, Z: %d', 
     [Round(Camera1.RotationAngle.X), Round(Camera1.RotationAngle.Y), 
     Round(Camera1.RotationAngle.Z)]); 
    end; 

любая идея, что я не хватает ... и я поставил в инспекторе объектов, Viewport3D камеры к камере 1.

Answer 1

вы должны отключить «UsingDesignCamera» в инспекторе объектов Viewport3D.