Scroll Mouse en TImage32
 

Hola a todos:

Estoy realizando una palicacion en la que en un TImage32 muestro una imagen y se puede realizar un zoom dentro de ella, tengo dos botones (+ y -) que realizan las funciones del zoom, el problema es que deseo que cuando este seleccionado el boton + y gire el scroll del mouse hacia adelante la imagen se expanda, por otro lado si esta seleccionado el boton - y giro el scroll de mouse hacia abajo la imagen se reduza, mi pregunta es ¿Donde capturo este evento del mouse?.

Le agradezco sus comentarios.

Saludos

Con el evento MouseWheel puedes manejar la rueda del mouse. Este es un ejemplo para mover el scroll pero puedes adaptarlo para zoom, solo fíjate en la variable WheelDelta.

Código Delphi [-]
// Utiliza la rueda del mouse para el ScrollBox.
procedure TForm1.ScrollBox1MouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
     ScrollBox1.VertScrollBar.Position:= ScrollBox1.VertScrollBar.Position - (WheelDelta div 20);
end;

Scroll Mouse en TImage32
 

Muchas Gracias..

Voy a probar con el evento MouseWheel()


Saludos