使用firemonkey,我在a里面有几个立方体,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。