Einzelnen Beitrag anzeigen

Benutzerbild von Xong
Xong

Registriert seit: 9. Jan 2008
186 Beiträge
 
Delphi 2006 Professional
 
#2

Re: Scrollbox mit Handsymbol wie Acrobat Reader

  Alt 12. Feb 2008, 12:52
Zitat von v2afrank:
Hat jemand eine Idee, wie ich so was realisieren könnte
Einfach in den OnMouseDown-Event der Scrollbox eine Abfrage nach der mittleren Maustaste einbauen und das Scrollen ein- bzw. ausschalten. (Am besten legst du dir gleich eine Klasse an, in der Mauspostion, Scrollstatus, Distanz, Richtung und ggf. weitere Werte gespeichert werden.)

Im OnMouseMove wird abgefragt, ob Scolling = true. Wenn true, dann speicherst du die neue Mausposition und die Distanz und Richtung zur Mittlere-Maus-Taste-gedrückt-und-Scolling=True-Mausposition.

Jetzt musst du nur noch via Timer abfragen, ob sich die Maus auf dem Element/der Scrollbox befindet und Scrolling true ist. (Den Timer brauchst du ja nur aktivieren, wenn gescrollt werden soll.)
Ist das der Fall kannst du aus der Richtung die Scrollrichtung herauslesen und aus der Distanz die Scrollgeschwindigkeit.

Alles klar? 8)

EDIT: Nur der Vollständigkeit halber: Den Cursor dabei noch zu verändern dürfte nicht weiter schwer sein.
  Mit Zitat antworten Zitat