Timer/Shape mit Mausrad zum Starten bringen?

[AddiDelphi]

Hey Leute.
Habe im Web gesucht aber nichts gefunden;

wie kann ich die Bewegung eines Shapes mit dem Mausrad starten?

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
  begin
    Ball.bewege(rechts,runter);
    Shape1.Left:=Ball.GibX;
    Shape1.Top:=Ball.GibY;

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
  timer1.Enabled:=true;

Wie kann ich es einstellen, dass statt dem Button, der gedrückt werden muss, einfach das Mausrad z.B. nach unten gescrollt werden muss?
Also dass wenn ich das Mausrad drehe
timer1.Enabled:=true; umgesetzt wird?

Danke!

[s-off]

WM_MOUSEWHEEL

[AddiDelphi]

Zitat von s-off:

WM_MOUSEWHEEL

?? Bisschen genauer bitte, am besten Quelltext.
Weiß nicht welchen von den Links ich da holen muss.. bin neu.

Danke

[patti]

Du könntest dir auch mal die Ereignisse OnMouseWheelUp/Down anschauen.

mfg

[AddiDelphi]

Zitat von patti:

Du könntest dir auch mal die Ereignisse OnMouseWheelUp/Down anschauen.

mfg

Wo gibt es die Ereignisse?
Beim Timer und beim Shape nicht, deswegen frage ich ja

[patti]

Schau mal bei deinem Formular nach.

[AddiDelphi]

Ok, danke, habs