掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
動的に作成したImageを削除するには (ID:21216)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
表題の通り動的にImageを作成して、作成したImageをクリック時に そのImageを削除するプログラムを作成したいのですが エラーが出て削除することが出来ません。 やはり自分自身をクリック時に自分自身を削除することは出来ないのですか？ デバッグで追ってみると「DoMouseUp(Message, mbLeft);」で落ちているようなのですが・・・。 procedure TForm1.FormCreate(Sender: TObject); begin i := 1; end; procedure TForm1.Button1Click(Sender: TObject); begin objImage := TImage.Create(Self); with objImage do begin Parent := Form1; Name := 'Image' + IntToStr(i); Caption := 'Image' + IntToStr(i); Height := 30; Width := 30; Top := 2; Left := i * 40; Tag := i; OnClick := ImageClick; Canvas.Brush.Color := clWhite; Canvas.Font.Style :=[fsBold]; Canvas.TextOut(10, 10, '画'); end; i := i + 1; end; procedure TForm1.ImageClick(Sender: TObject); var pnt : Pointer; begin pnt := FindComponent('Image' + IntToStr((Sender as TImage).Tag)); TImage(pnt).Free; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.