掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
FireMonkey の立体をコードで書けますか？ (ID:43153)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
procedure TForm1.FormCreate(Sender: TObject); const W = 10; H = 5; Z = 10; S = 1.2; var I, J, K: Integer; Img: TControl3D; begin BeginUpdate; for I := 1 to W do for J := 1 to H do for K := 1 to Z do begin Img := TCube.Create(nil);//<--① Img.Parent := Dummy1; TCube(Img).MaterialSource := Material1//<--② Img.SetSize(0.95, 0.95, 0.95); Img.Position.Point := Point3D(-W/2*S + I * S, 1 + H/2*S - J * S, K * S); end; EndUpdate; end; >1.LightMaterialSource の "名前" は Material1 ですか？ > LightMaterialSource1 ではありませんか？[オブジェクトインスペクタ] >で確認して下さい。 回：LightMaterialSource1 です。 >2.TCube(Img).MaterialSource := Material1 の後にセミコロンがないよう >ですが？ 回：すいません、セミコロンが抜けてました。 ②の右辺をLightMaterialSource1; に修正しました。 ①と②で赤下波線が出ます。 お手数かけますがご指導の程よろしくお願い致します。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.