Mausrad simulieren

[googy]

Hallo,

ich würde gerne wissen wie man eine Bewegung des Mausrads (scrollen nicht clicken) per Delphi simulieren kann, jedoch ohne Hooks und Messages zu versenden.
Habe schon gesucht doch nichts konkretes außer hooks gefunden.

Nun meine Frage es gibt ja "mouse_event", damit kann man ganz einfach Mausclicks ausführen für rechte, linke und mittlere Maustaste

Beispiel:

Delphi-Quellcode:

var point:TPoint;

mouse_event(MOUSEEVENTF_LEFTDOWN, point.x, point.y, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, point.x, point.y, 0, 0);

dies funktioniert Fensterunabhängig und überall

gibt es sowas auch für das Mausrad?

oder eine andere (möglichst einfache) Möglichkeit dies zu bewerkstelligen


Vielen Dank im Voraus

[googy]

niemand ne idee?

[KingIR]

Pushen erst nach 24h....

Die MSDN hat aber die Info, mouse_event mit MOUSEEVENTF_WHEEL als Flag sollte dir helfen. Details in der MSDN. Geht allerdings nur unter 2k/XP+

[googy]

sorry für meine ungeduld
wollte nicht zu aufdringlich sein

Vielen Dank das hört sich sehr gut an, werde gleich mal ausprobieren

[googy]

getestet

klappt wunderbar, bin restlos glücklich


Danke

[melodie]

Ich habe das auch mal versucht, doch wie scrollt man nach unten?

Man gibt ja als 4. Parameter an wie weit man scrollen will, doch man kann keine negativen werte angeben.

[Flare]

Zitat von melodie:

doch man kann keine negativen werte angeben.

Laut dem MSDN schon

Zitat von MSDN:

[in]If dwFlags contains MOUSEEVENTF_WHEEL, then dwData specifies the amount of wheel movement. A positive value indicates that the wheel was rotated forward, away from the user; a negative value indicates that the wheel was rotated backward, toward the user. One wheel click is defined as WHEEL_DELTA, which is 120.

Flare

[melodie]

Bei mir wird aber dann ein Fehler angezeigt:

E1012 Konstantenausdruck verletzt untere Grenzen

[Namenloser]

probiers mal mit cardinal(-1)

[melodie]

Das funktioniert, doch die Schritte sind viel zu groß.