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

名前

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

本文 こんにちは。 > Deafault Button を押すと、Ｘ軸回転用の Button が左方向に移動してしまいます。 FloatAnimation1 は "何の子コントロール" になっていますか？ [構造] ペインは確かめましたか？[オブジェクトインスペクタ] は確認しましたか？ 同じ間違いを繰り返しておられるようですが？ > Ｘ軸回転用の Button を配置して、Ｘ軸回転用の Button を Click するごとに > ＋方向に９０度ずつ回転させるようにし、Deafault Button を押すと、 > 軸が元の位置に戻るようにするには、どのようなコードを書けばいいのでしょうか。 procedure TForm1.Button1Click(Sender: TObject); //<-- Deafault Button begin FloatAnimation1.StopValue := 0; FloatAnimation1.StartFromCurrent := True; FloatAnimation1.Start; end; procedure TForm1.Button2Click(Sender: TObject); //<-- Ｘ軸回転用 Button begin FloatAnimation1.StopValue := Dummy1.RotationAngle.X + 90; FloatAnimation1.StartFromCurrent := True; FloatAnimation1.Start; end; 完全ではありませんが、このようなコードで動作すると思います。 何が完全でないのかは、ご自分で考えてみてくださいね。