【原创】Delphi Fmx 3d 编程学习 第一个Fmx 3d例子 和 3d 控件分组介绍

fmx 自带的3d控件分组介绍

Delphi Fmx  3d

拖出一个  Viewport3D 控件,然后在拖出一个 StrokeCube  控件在 Viewport3D 里面。
为了容易分辨,设置 StrokeCube  为红色。
StrokeCube控件的 Width,Height,Depth 为  长度,高度,深度。 对应为  X,Y,Z轴的大小
Position 为空间中所在位置。 RotationAngle 为自身旋转角度。
Scale 为显示比例尺。基本属性也就这些。

第一个列子,测试 对象的旋转角度


procedure TForm1.Button1Click(Sender: TObject);
begin
  StrokeCube1.AnimateFloat('RotationAngle.X', 360, 2);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  StrokeCube1.AnimateFloat('RotationAngle.Y', 360, 2);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  StrokeCube1.AnimateFloat('RotationAngle.Z', 360, 2);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  StrokeCube1.Width := 10;
  StrokeCube1.Height:= 5;
  StrokeCube1.Depth := 8;

  StrokeCube1.Position.Point := Vector3D(0,0,0);
  StrokeCube1.RotationAngle.Point := Vector3D(0,0,0);
end;

添加新评论

纯文本

  • 不允许使用HTML标签。
  • 自动断行和分段。
  • 网页和电子邮件地址自动转换为链接。
请输入图片中的字符,不区分大小写