StringGrid: Aktion beim Zellenanklicken

[Helmi]

Hallo,

ich hätte zu diesem Thema auch ne Frage:

Ich würd gern das gleiche machen, also beim Klick auf eine Zelle diese farbig ändern.

Tests mit OnSelectCell haben leider nichts gebracht.

Hier mein momentaner Code:

Delphi-Quellcode:

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
var
  r: TRect;

begin
  with StringGrid1 do
    begin
      r := CellRect(ACol, ARow);



      If Canvas.Brush.Color = clBlue then
        Canvas.Brush.Color := clRed
      else
        Canvas.Brush.Color := clNavy;

    Canvas.FrameRect(R);
  end;
end;

Den "TRick" mit eintragen eines Zeichens in die Zelle und dann das decodieren der Farbe der Zelle im OnDrawCell kenn ich, aber ginge das nicht einfach auch mit OnSelectRect?