OnMouseMove, aktuelle Zelle vorübergehend einfärben

[Matze]

Hi!

Ich möchte beim OnMouseMove im StringGrid, in die Zelle, unter dem Cursor ein Bitmap geben, doch sobald der Cursor weg ist, soll das Bitmap auch weg sein, im Moment habe ich das so:

Delphi-Quellcode:

  StringGrid1.MouseToCell(X, Y, Column, Row);
  StringGrid1.Canvas.Draw(Column*16,Row*16,KastenL);

im OnMouseMove, natürlich wird das Bitmap noch nicht gelöscht, jetzt das eigentliche Problem, per Klick auf eine Zelle, soll das Bitmap auf das Canvas fest gezeichnet werden, also habe ich "volle" und "leere" Zellen.

Dann kann ich ja nicht alle löschen, wie mache ich das am besten?