TScrollBar OnMouseUp() oder WM_LBUTTONUP implementieren, aber wie?
-
Habe eine TScrollBar, die leider kein OnMouseDown()-Ereignis hat. Jetzt habe ich die "Fenster"-Prozedur für die Scrollbar verbogen und wollte mittels der WM_LBUTTONUP Message auf ein MouseUp reagieren, leider funktioniert das nicht. Die Message WM_LBUTTONDOWN feuert aber.
Hab gelesen dass man SetCapture() bzw. die VCL-Variante SetCaptureControl() verwenden soll, damit alle Mausereignisse an das (ein?) Control weitergeleitet werden. Das funktioniert auch nicht.
Wie kann man soetwas überhaupt für die ScrollBar machen?
Gruß
-
Das Ereignis OnMouseDown ist von TControl bereits vererbt und muss nur verfügbar gemacht werden.
Erforderlich ist dazu ein dynamisches Erstellen bzw. eine Klassenableitung von TScrollBar.mfg
kpeter