카메라보기가 결코 나타나지 않습니다

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; 

나는 또한 내가 카메라 1. Viewport3d의 오브젝트 인스펙터에서 "UsingDesignCamera를"선택을 취소해야

Answer 1

에 객체 관리자, viewport3d 카메라에 설정 한 ... 실종 어떤 생각.