掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
StringGridのセルに描画したイメージをクリアするには？ (ID：24245)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
少々ブサイクな方法ですが、 フラグを立てておいてフラグがFlaseのときは 何も描画しないようにしたらどうでしょう？ var Flag :boolean =true; ------------------------------------------ procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin if Flag then ImageList1.Draw(StringGrid1.Canvas,Rect.left,Rect.Top,Acol,true); if (ACol=StringGrid1.ColCount-1) and (ARow=StringGrid1.RowCount-1) then Flag :=true; //最後のセルのときにフラグをTrueに戻す end; procedure TForm1.Button1Click(Sender: TObject); begin Flag :=false; StringGrid1.Invalidate;//イメージを消去 end; procedure TForm1.Button2Click(Sender: TObject); begin StringGrid1.InValidate;//イメージを再描画 end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.