FireMonKey に詳しい方ご指導ください (ID:43067)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 [右手座標系 サンプルソースコード] http://ht-deko.minim.ne.jp/software/righthandrule.zip を勉強しています。 Dial を回して軸を回転させるのではなく、Dial を Button に変更して軸を 回転させたいと思い Ｘ軸の回転を Dial ではなく Ｘ軸回転用の Button を配置して、 Button を Click するごとに ＋方向に９０度ずつ回転させるようにしてみました。 しかし、 何回 Click しても９０度しか回転しません。 Deafault Button を押すと、Ｘ軸回転用の Button が左方向に移動してしまいます。 それが以下のコードです。 procedure TForm1.Button1Click(Sender: TObject); //<-- Deafault Button begin FloatAnimation1.Start; end; procedure TForm1.Button2Click(Sender: TObject); //<-- Ｘ軸回転用 Button begin Dummy1.RotationAngle.X := Button2.Position.X; end; FloatAnimation1 のオブジェクトインスペクタのプロパティの PropertyName は Position.X にしています。 Ｘ軸回転用の Button を配置して、Ｘ軸回転用の Button を Click するごとに ＋方向に９０度ずつ回転させるようにし、Deafault Button を押すと、 軸が元の位置に戻るようにするには、どのようなコードを書けばいいのでしょうか。 詳しい方がいらっしゃいましたらご指導の程よろしくお願い致します。 使用環境 WIN7 Pro 64bit SP1 Delphi XE3