Scroll Mouse en TImage32

[Mary Carmen G.]

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

[MAXIUM]

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;

[Mary Carmen G.]

Muchas Gracias..

Voy a probar con el evento MouseWheel()


Saludos