OnMouseWheel en TPanel

[metalfox6383]

Hola:

Quiero que un objeto de tipo TPanel responda al evento OnMouseWheel, ya que lo que deseo es que cada vez que mueva la ruedita del mouse se incremente un valor numérico en su propiedad Caption (claro, haciendo antes las transformaciones string e integer correspondientes).

¿Cómo puedo lograr eso?

Gracias.

[[seoane]]

Seguro que hay metodos mejores, modificando la clase o capturando el mensaje del raton, pero aqui te dejo uno que, por lo menos, es curioso.

Suponemos que le Panel que quieres cambiar se llama Panel1, coloca este codigo en el evnto OnMouseWheel del formulario

Código Delphi [-]
procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  if ChildWindowFromPoint(Handle,ScreenToClient(MousePos)) = Panel1.Handle then
    Panel1.Caption:= IntToStr(StrToIntDef(Panel1.Caption,0) + (WheelDelta div Abs(WheelDelta)));
end;

[metalfox6383]

Interesante método. Voy a estudiarlo.

[metalfox6383]

Funciona Perfectamente. Gracias.