相机视图永远不会出现

时间:2013-07-29 00:59:43

标签: delphi firemonkey

使用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。

1 个答案:

答案 0 :(得分:0)

您必须取消选中Viewport3d对象检查器中的“UsingDesignCamera”。