VPF::Прокруткa ListView - Форум программистов

Scroller

Дата 30.8.2005, 10:01 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Скажите пожалуйста , какие сообщения генерируются при прокрутке ListView (при прокрутке с клавиатуры и колесом мыши WM_VSCROLL не генерируется). Заранее благодарен.

Romikgy

Дата 30.8.2005, 10:34 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

WM_MOUSEWHEEL

Цитата(Scroller @ 30.8.2005, 10:01)

колесом мыши

А клавой можно использовать
keybrd_event

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Guest

Дата 30.8.2005, 11:45 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Цитата

WM_MOUSEWHEEL

Не отлавливается для Listview.Может можно вообще как-то осуществить , чтобы при прокрутке Listview на одну строку строку (любым способом) вызывался мой обработчик?
Заранее благодарен.

Rrader

Дата 30.8.2005, 12:13 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Засабклассь TListView:

Код


function NewListViewProc(hWnd: HWND; uMsg: UINT;
  wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
  { Твой обработчик }
  if uMsg = WM_MOUSEWHEEL then 
    ShowMessage('WM_MOUSEWHEEL message!');  
  Result := CallWindowProc(Pointer(GetWindowLong(hWnd, GWL_USERDATA)),
    hWnd, uMsg, wParam, lParam);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetWindowLong(ListView1.Handle, GWL_USERDATA,
    SetWindowLong(ListView1.Handle, GWL_WNDPROC,
       Longint(@NewListViewProc)));
end;

Можешь добавить ещё проверку на клавиши-стрелки. ;-)

--------------------

Let's do this quickly!
Rest in peace, Vit!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »