如何从不同的线程改变3D火猴对象的颜色

Question

我有一个圆柱体

Cylinder1 : TCylinder;

当我点击它时，我想让它改变颜色。我已将此添加到单击事件中

procedure TfrmFiremonkey.Cylinder1Click(Sender: TObject);
begin
    Cylinder1.MaterialSource := GreenMaterial;
end;

圆柱体不变色。但是，如果我在调用form.Show事件之前设置了Cylinder1.MaterialSource，它将会改变颜色

我怀疑它没有显示的原因是因为Cylinder1Click是在另一个线程中发生的。

Answer 1

我发现

procedure TfrmFiremonkey.Cylinder1Click(Sender: TObject);
begin
    TColorMaterialSource(Cylinder1.MaterialSource).Color := claBlue;
end;

工作正常