请教XE2中的疑问，大神帮忙解决

[skolar]

我参照XE2 中的例子做一个3D动画，delphi的源码如下

 begin
  { Create 3D viewport and layer }
  V := TViewport3D.Create(Self);
  V.Parent := Self;
  V.Align := TAlignLayout.alClient;
  V.Color := claNull;
  L := TLayer3D.Create(Self);
  L.Parent := V;
  L.Projection := TProjection.pjScreen;
  L.Align := TAlignLayout.alClient;
  { Move object to 3D scene}
  ScaleRoot.Parent := L;
  { Animate }
  L.AnimateFloat('Position.Z', 500, 1);
  L.AnimateFloatDelay('Position.Z', 0, 1, 1);
  L.AnimateFloatWait('RotationAngle.X', 360, 2, TAnimationType.atInOut, TInterpolationType.itBack);
  { Back to 2D }
  ScaleRoot.Parent := Self;
  { Free 3D }
  L.Free;
  V.Free;
end; 

我自己改写的BCB代码如下：

TViewport3D  *V;
  TLayer3D     *L;

  V = new TViewport3D(this);
  V->Parent = this;
  V->Align = TAlignLayout::alClient;
  V->Color =  claNull;

  L = new TLayer3D(this);
  L->Parent = V;
  L->Projection = TProjection::pjScreen;
  L->Align =  TAlignLayout::alClient;
  Layout1->Parent = L;
  L->AnimateFloat("Position.Z",500,1);
  L->AnimateFloatDelay("Position.Z",0,1,1);
  L->AnimateFloatWait("Position.X",360,2, TAnimationType::atInOut, TInterpolationType::itBack);
  Layout1->Parent = this;
  L->Free();
  V->Free();

问题点在于我的动画效果根本就没有翻转，只有缩放，应该是L->AnimateFloatWait这句中按照X轴旋转360度两次没有执行，不知道问题点在哪，还请大神帮忙解惑！
弱弱的问下，delphi中调用enum的格式是TAlignLayout.alClient
在bcb中为什么包含了其头文件却说没有定义alClient，必须 TAlignLayout::alClient 这样使用？
妖哥赶紧来，谢谢了~

[skolar]

自己顶起，大牛赶紧来

[ccrun.com]

{ Move object to 3D scene} ScaleRoot.Parent := L; 这一句你没有翻译. ScaleRoot是什么类型的?

[ccrun.com]

你整理一个简单的演示工程, 压缩发给我. cbfans at 163 d0t com

[skolar]

妖哥，ScaleRoot 是TLayout类型的，我也翻译了，是下面这句 Layout1->Parent = L; 就是AnimateFloatWait 中没有翻转，只有缩放，妖哥请指教，谢谢了!

引用 2 楼 ccrun 的回复:

{ Move object to 3D scene} ScaleRoot.Parent := L; 这一句你没有翻译. ScaleRoot是什么类型的?

[skolar]

妖哥已经发送你163邮箱，麻烦帮忙看看，谢谢了

引用 4 楼 ccrun 的回复:

你整理一个简单的演示工程, 压缩发给我. cbfans at 163 d0t com

[skolar]

妖哥收到没有，[e-mail] 已经发送了好几天了

引用 4 楼 ccrun 的回复:

你整理一个简单的演示工程, 压缩发给我. cbfans at 163 d0t com

[ccrun.com]

收到了，最近太忙，还没有时间帮你看。今晚吧。