delphi - 如何从不同的线程更改 3D firemonkey 对象的颜色

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;

工作正常