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

名前

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

本文 VBからの入門者でVBから移植作業の最中です。（Win-XP ＋ Delphi6 パーソナル） HELPで見てシェープコントロールなどを生成できることを知り、実験ではForm上に上手く生成できましたが、これをImage1の上に生成したいと思っていますが方法がわかりませんので教えてください。（下記コードでForm上にはできました） それから同時にこのシェープを配列化する方法があったら教えてください。よろしくお願いします。 procedure TForm1.Button3Click(Sender: TObject); var i: Integer; const NamePrefix = 'Myshape'; begin for i := 1 to 20 do begin Tshape.Create(Self).Name := NamePrefix + IntToStr(i); with Tshape(FindComponent(NamePrefix + IntToStr(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;