掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
動的に作成したTimageの削除方法 (ID:10712)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> ソースが多いのでとても載せることができません。 多くても少なくても、こういう場合には該当部分のみを抽出して示すようにします。 その作業をするだけで原因が発見できてしてしまうことも少なくありません。 例えば、次のよう取り出します。 「動的に作成するTimageは３つです」ということですので、それに合わせました。 この事例では、きれいに開放できてしまいます。 var Form1: TForm1; Images: Array[0..2] of TImage; ImagesCount: Integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin for i := 0 to 2 do begin Images[i] := TImage.Create(Self); Images[i].Parent := Form1; Images[i].Width := 20; Images[i].Height := 20; Images[i].Top := 50; Images[i].Left := i * 50 + (i + 1) * 10; // 作成されたことがモニタで確認できるようにする Images[i].Canvas.Brush.Color := clWhite; // 画像の読み込みなど他の記述はカットして示す end; ImagesCount := 2; end; procedure TForm1.Button2Click(Sender: TObject); begin if ImagesCount >= 0 then begin Images[ImagesCount].Free; Dec(ImagesCount); end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.