[nixon232]

Добрый вечер прошу помощи.
Есть статичная таблица 14х14. Пользователю запрещено по ней кликать.
Но если крутить колесико над Гридом, то через некоторое время вылазит ошибка Grid index out of range. Как это побороть? вылезает только при прокрутки.

Код:

    object SGBB: TStringGrid
      AlignWithMargins = True
      Left = 5
      Top = 64
      Width = 382
      Height = 269
      Margins.Left = 1
      Margins.Top = 1
      Margins.Right = 1
      Margins.Bottom = 1
      BiDiMode = bdRightToLeftReadingOnly
      Color = clWhite
      ColCount = 14
      DefaultColWidth = 26
      DefaultRowHeight = 18
      DrawingStyle = gdsGradient
      RowCount = 14
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -9
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      GradientEndColor = clWhite
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine]
      ParentBiDiMode = False
      ParentFont = False
      TabOrder = 0
      ColWidths = (
        26
        26
        26
        27
        26
        26
        26
        26
        26
        26
        26
        26
        26
        26)
    end

Код:

 procedure TMF.OnSelectCell(Sender: TObject;ACol,ARow:Integer; var CanSelect:Boolean);
begin
CanSelect:=False;
end;

При создании убераем фокус:

Код:

//r:TGridRect;
 r.Left:=-1;
    r.Top:=-1;
    r.Bottom:=-1;
    r.Right:=-1;
    SGBB.Selection:=r;