OnMouseWheel en TPanel

[[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.