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

名前

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

本文 TPanelを各コントロールの親ウィンドウにするには、 TPanelに Panel1 と名前がついている場合なら えーとさんの書かれたコードの > with ShapeList[i] do > begin 省略 > Parent := self; > end; のParentの部分を Parent := Panel1; とすればよいです。 Image1の Parent は、デザイナで Panel1の上に貼り付けた時点で Panel1 になっているはずです。 ちなみに Self というのは、Form1のメソッド（関数や手続き）を記述する ブロック内であるならば、Form1 自身のことを指します。 self が未定義と出るのは、その関数や手続きが、クラスに属していない のでは無いかと思います。 >procedure TForm1.Button1Click(Sender: TObject); これがソースコード上部の interface 部の type 以下 TForm1 のメンバーに加わっていないと思います。 一度、implementation 以下の Button1Clickハンドラを CTRL + X でカットし、 デザイナで Button1 を選択し、 オブジェクトインスペクタ（通常左側にあるウィンドウ） 「イベント」から 一度、OnClickイベントを作った上で CTRL + P で Delphiが生成した Button1Clickハンドラと 入れ替えてあげれば OK。 （デザイナを使う場合における話です）