tagMSG

[AndreyF]

Сообщение от s.Creator

А вообще если при выделенном TDBGrid нажимать клавиши вверх/вниз это работает?

Конечно клавиши VK_UP и VK_DOWN работают, а колесо мыши прокручивает строки только в видимой части самого DBGrid.
короче ничего не удалось сдвинуть с мёртвой точки......

[AndreyF]

Всё, наконец то вкуриль, вот рабочий код:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
var
  Form: TForm;
begin
   if Msg.message=WM_MOUSEWHEEL then
      begin
         Form:=Screen.ActiveForm;
         if Assigned(Form) then
            begin
               if Form.ActiveControl is TDBGrid then 
                  begin
                     Msg.message:=WM_KEYDOWN;
                     Msg.lParam:=0;
                     if Msg.wParam>0 then Msg.wParam:=VK_UP else Msg.wParam:=VK_DOWN;
                     Handled:=False;
                  end;
            end;
      end;
end;

т.е. убрал ActiveMDIChild, с ним почему то не работает.
Спасибо всем.