掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Image1の上にコントロールをクリエートしたい (ID:21340)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> これをImage1の上に生成したいと思っていますが方法がわかりませんので > それから同時にこのシェープを配列化する方法 TImage も TShape もウィンドウをもたない TGraphicControl の派生クラスです から、共通の Parent に対して、後に作成された方が上にくるはずです。 var ShapeList: array[1..20] of TShape; procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin for i := 1 to 20 do begin ShapeList[i] := TShape.Create(self); with ShapeList[i] do begin height:=15; width:=15; shape:=stcircle; brush.Color:=rgb(random(255),random(255),random(255)); Left := 180; Top := i * 20; Parent := self; end; end; end; で、設計時に画像を読み込んだ Image1 より上にきます。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.