DelphiXE2 FireMonkey3D体验

一、创建一个新的 FireMonkey 3D Application

 

二、从3D Scene 中拖一个 TLight 控件， 一个 TSphere控件到窗体上

 

三、设置 Sphere 的材质中 Diffuse 的颜色

设置后效果如下

 

 

四、设置 Sphere 的长宽高

 

效果如图

 

 

窗体代码为：

object Form1: TForm1
  Left = 0
  Top = 0
  BiDiMode = bdLeftToRight
  Caption = 'Form1'
  ClientHeight = 601
  ClientWidth = 681
  Transparency = False
  Visible = False
  object Sphere1: TSphere
    RotationAngle.Point = '(0,-5.6288743019104,0)'
    Width = 3.000000000000000000
    Height = 3.000000000000000000
    Depth = 3.000000000000000000
    Opacity = 1.000000000000000000
    Material.Diffuse = claGreen
    Quanternion = '(0,-0.0491016022861004,0,0.998793303966522)'
  end
  object Light1: TLight
    Position.Point = '(1,1,-5)'
    Width = 1.000000000000000000
    Height = 1.000000000000000000
    Depth = 1.000000000000000000
    Opacity = 1.000000000000000000
    LightType = ltDirectional
    Quanternion = '(0,0,0,1)'
  end
end