Image1の上にコントロールをクリエートしたい (ID:21353)

名前

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

本文 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 := Panel1; onClick:=LabelClick; end; end; end; にすればいいと思いますよ。