如何在 Delphi FMX 中制作 TLight 节目答案

【问题标题】：How do I make a TLight show in Delphi FMX如何在 Delphi FMX 中制作 TLight 节目
【发布时间】：2022-01-09 21:43:36
【问题描述】：

我正在尝试制作一个 3D 应用程序，其中 TLight 在 3D 立方体中投射光，但我找不到“启用”光的方法，它什么也不做。

【问题讨论】：

将 firemonkey 添加到您的问题标签中。另外，包括一些示例代码。
@XylemFlow 没有代码。我不知道TLight 组件是如何工作的
你的立方体需要有一个 TLightMaterial。通过将TLightMaterialSource 组件添加到您的表单开始执行此操作。
您是否将 TLightMaterialSource 源指定为立方体的材质源？也可能更容易使您的光成为点源并移动它而不是默认方向，如果它指向远离立方体不会有太大作用。
添加一个 TViewport3D，添加一个 TRectangle3D，添加一个 TLight，添加一个 TLightMaterialSource。现在将 MaterialBackSource、MaterialShaftSource 和 MaterialSource 的 TRectangle3D 的属性全部设置为您添加的 TLightMaterialSource。

【解决方案1】：

立方体的 MaterialSource 必须是 TLightMaterial。通过在表单上放置一个 TLightMaterialSource 并将其连接到立方体来做到这一点。为了更容易看到，将灯光设为点光源。完成并看起来类似于下图后，您可以四处移动光源并看到立方体以不同的方式点亮。

【讨论】：