[DUG] Listview problem
Dave at iccs.co.nz
Fri Feb 25 15:08:32 NZDT 2011
I am working on an application (D2009) where I need to know when a
TListView is Scrolled.
I have used Application.OnMessage to look for WM_VScroll messages, but
they do not happen, also have tried creating the below which I thought
TLVScrollEvent = procedure(Sender: TObject) of object;
TICListView = class(TListView)
Procedure WMVScroll( Var Msg: TMessage ); message WM_VSCROLL;
Procedure WMHScroll( Var Msg: TMessage ); message WM_HSCROLL;
property OnScroll: TLVScrollEvent read FOnScroll write FOnscroll ;
procedure Register ;
procedure TICListView.WMHScroll(var Msg: TMessage);
procedure TICListView.WMVScroll(var Msg: TMessage);
which also doesn't fire. I have written a list of all messages fired
when the scrollbar is moved, but there doesn't seem to be anything
Anyone have a solution?
-------------- next part --------------
An HTML attachment was scrubbed...
More information about the Delphi