[nixon232]

Сообщение от NumLock

Код:

type
  TStringGrid = class(Grids.TStringGrid)
  protected
    procedure WMMOUSEWHEEL(var Msg: TMessage); message WM_MOUSEWHEEL;
  end;

procedure TStringGrid.WMMOUSEWHEEL(var Msg: TMessage);
begin
  Msg.Result:=0;
end;

Спасибо за решение, но пока сыпется код. У меня компилятор хе4, так что пришлось поправить.

Код:

TStringGrid = class(Vcl.Grids.TStringGrid)
  protected
    procedure WMMOUSEWHEEL(var Msg: TMessage); message WM_MOUSEWHEEL;
  end;

Тогда ваш кусок прошел, но не проходит кусок:

Код:

 procedure PaintHand( S:TStringGrid );

Есть 3 грида, на 3х формах и когда вызываю эту процедуру компилятор пишет, что не то передается в параметре. Ваш кусок вставил на все формы. Что не так, делаю?