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 より上にきます。