TStringGrid

[KodeZwerg]

Naja, wenn man OutOfBounds werte eingibt, landet man auch out of bound.

Wie wäre es hiermit?

Delphi-Quellcode:

procedure TForm7.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  Farbe: TColor;
begin
  Farbe := clWhite;
  if (gdSelected in State) then
  begin
    TStringGrid(Sender).Canvas.Brush.Color := Farbe;
    TStringGrid(Sender).Canvas.FillRect(Rect);
  end;
end;