TListView滚动条事件

type

  TListView   =   class(ComCtrls.TListView)
    procedure   WMHSCROLL(var   Msg:   TWMHSCROLL);   Message   WM_HSCROLL;     //水平滚动条
    procedure   WMVSCROLL(var   Msg:   TWMVSCROLL);   Message   WM_VSCROLL;     //垂直滚动条
  end;

TForm26 = class(TForm)

ListView1: TListView;

 

procedure   TListView.WMVSCROLL(var   Message:   TMessage);       //垂直滚动条
begin
    ShowMessage( 'VScroll ');
end;

procedure   TListView.WMHScroll(var   Message:   TMessage);      //水平滚动条
begin
//  TScrollbox    指定鼠标位置，或设定鼠标位置（0,0）  鼠标移动， Scrollbox1上的滚动条也移动
end;

转载于:https://www.cnblogs.com/zousheng7018/archive/2012/10/17/2727406.html