Как отловить прокрутку TListBox?

← →
Ev1972 (2003-10-08 12:11) [0]

Как можно отследить в программе:
момент прокрутки пользователем скролл-бара у комппоненты TListBox
перемещение мыши пользователем над скролл-баром комппоненты TListBox

← →
clickmaker (2003-10-08 12:47) [1]

FOldListBoxWndProc := ListBox.WindowProc;
ListBox.WindowProc := ListBoxWndProc;

...

procedure TForm1.ListBoxWndProc(var Message: TMessage);
begin
case Message.Msg of
WM_VSCROLL:
begin
// твоя обработка
end;

WM_HSCROLL:
begin
// твоя обработка
end;
end;
FOldListBoxWndProc(Message);
end;

← →
Chlavik (2003-10-08 14:07) [2]

Или наследник TListBox. в private пишешеш
procedure OnVScroll(var Message:TMessage); Message wm_VScroll;

в самой процедуре inherited не забудь. Ну и так же с горизонтальной...

Как отловить прокрутку TListBox? Найти похожие ветки