StringGrid: Zellen-Farbe bei Click ändern

[Helmi]

Hallo
und vielen Dank!

hab deinen Code etwas angepasst und so funktionierts bestens:

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
const
  SelColor = ClRed;

begin
  with TStringGrid(Sender), Canvas do
    begin
      If gdFixed in state then
        exit;

      If Integer(Objects[aCol,ARow]) = 1 then
        Brush.Color := SelColor
      else
        Brush.Color := Color;

      FillRect(Rect);
    end;
end;