[Lazarus] Scroll Wheel

Mattias Gaertner nc-gaertnma at netcologne.de
Fri Apr 11 19:58:15 CEST 2014


On Fri, 11 Apr 2014 13:45:41 -0400
Timothy Groves <the.tail.kinker at gmail.com> wrote:

> I have several TEdit objects in my form, and because they handle only 
> integer data, I'd like to use my scroll wheel to edit their values.  
> However, there is no OnScrollWheel event that I can see.
> 
> Since scroll wheels are passed as mouse clicks, I thought to examine the 
> OnMouseDown/OnMouseUp events, but nothing is passed to indicate /which/ 
> button is being pressed.
> 
> So either Google has failed me, or I have failed Google, but either way, 
> I can't find the answer on the net after an hour of searching. Can 
> anyone point me in the right direction?

Have you tried to override
    procedure WMMouseWheel(var Message: TLMMouseEvent); message LM_MOUSEWHEEL;
?

Mattias




More information about the Lazarus mailing list