delphi - 別のスレッドから 3D firemonkey オブジェクトの色を変更する方法

Question

シリンダーを持っています

Cylinder1 : TCylinder;

クリックすると色が変わるようにしたい。これをオンクリックイベントに追加しました

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

シリンダーは変色しません。ただし、form.Show イベントを呼び出す前に Cylinder1.MaterialSource を設定すると色が変わります

表示されない理由は、Cylinder1Click が別のスレッドで発生しているためだと思われます。

score 0 · Accepted Answer

私はそれを発見しました

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

正常に動作します

1 に答える 1