Ratón arriba, ratón abajo, ratón arriba...

[ecfisa]

Hola Felipe.

En otra prueba me dí cuenta que el código anterior dejaba fuera al TForm por ejemplo.

De este modo queda contemplado:

Código Delphi [-]
procedure TForm1.MouseWheel(var Msg: tagMSG; var Handled: Boolean);
var
  i: SmallInt;
  FControl: TWinControl;
begin
  FControl:= FindVCLWindow(Mouse.CursorPos);
  if Msg.message = WM_MOUSEWHEEL then
  begin
    if (GetWindowLong(FControl.Handle, GWL_STYLE) and WS_VSCROLL <> 0) then //  Scroll vertical presente ?
    begin
      Msg.message := WM_KEYDOWN;
      Msg.lParam := 0;
      i:= HiWord(Msg.wParam);
      if (FControl is TScrollingWinControl) then // ScrollBoxBox, Form,...
      begin
        with TScrollingWinControl(FControl).VertScrollBar do
          if i > 0 then
            Position:= Position - Increment
          else
            Position := Position + Increment;
      end
      else if FControl.Focused then // DBGrid, StringGrid, Memo, ...
      begin
        if i > 0 then
          Msg.wParam := VK_UP
        else
          Msg.wParam := VK_DOWN;
      end;
    end;
  end;
  Handled := False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage:= MouseWheel;
end;

Un saludo.

[ecfisa]

Hola de nuevo.

Para que no se te haga tán fácil a la hora de elegir , en este enlace , hay algunas formas más para lograrlo.

Un saludo.

[TiammatMX]

Empezado por ecfisa

Hola Felipe.

En otra prueba me dí cuenta que el código anterior dejaba fuera al TForm por ejemplo.

...
Un saludo.

¡¡Muchas gracias!!, ésto es lo que buscaba, precisamente...

Y Al, compadre, también es un gustazo andar por éstos lares. Aún te debo una cerveza... :P