событие прокрутки на TListView

← →
[diesel] (2003-04-11 09:09) [0]

как отловить это самое событие?
никакого wm_scroll не нашёл ;(

← →
DVM (2003-04-11 10:16) [1]

WM_VSCROLL

← →
[diesel] (2003-04-11 10:37) [2]

да, согласен, затупил... ;)
терь другой вопрос: а как это дело повесить именно на TListView, а не на TForm ?

← →
DVM (2003-04-11 10:42) [3]

Создай потомок TListView, перехватывающий сообщения WM_HSCROLL и WM_VSCROLL:

TMyListView = class(TListView)
procedure WM_HScroll(var Msg: TWMHScroll); message WM_HSCROLL;
procedure WM_VScroll(var Msg: TWMVScroll); message WM_VSCROLL;
end;

procedure TMyListView.WM_HScroll(var Msg: TWMHScroll);
begin
ShowMessage("HScroll");
end;

procedure TMyListView.WM_VScroll(var Msg: TWMVScroll);
begin
ShowMessage("VScroll");
end;

← →
DVM (2003-04-11 10:43) [4]

Или переопредели оконную процедуру списка, если на WinApi пишешь.

событие прокрутки на TListView Найти похожие ветки