VPF::Как отследить скролинг в компонентах

AlexLogos

Дата 31.5.2011, 16:12 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 229
Регистрация: 23.4.2009

Репутация: нет
Всего: 1

Хело, народ! Не раз возникала ситуация что надо отследить скроллинг полосы прокрутки юзером. Раньше этого не уяснил, теперь каюсь.
Для редактирования сабитемов ListView показываю едит, но если проскролить - едит остается на месте и это не комильфо. Как отследить скролинг и перерисовать едит?

AlexLogos

Дата 31.5.2011, 16:30 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 229
Регистрация: 23.4.2009

Репутация: нет
Всего: 1

Решил так - обрабатывал событие OnCustomDraw, считал смещение по скролу position:=GetScrollPos(LVMeta.Handle,SB_HORZ); и перерисовывал со смещением.

Snowy

Дата 31.5.2011, 16:38 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Лучше положи свой листвью в скроллбокс в полный рост.
Тогда можешь разложить в него чего угодно и сколько угодно - оно будет скролиться вместе с листвью и со всем прочим содержимым внутри скроллбокса.
И ничего никуда не поедет и не рассинхронизуется.

RomanEEP

Дата 1.6.2011, 08:40 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 424
Регистрация: 18.5.2006
Где: Коломна

Репутация: 5
Всего: 8

Код


  TListView = class(ComCtrls.TListView)
  protected
    procedure WMHScroll(var Message: TWMHScroll); message WM_HSCROLL;
    procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
  end;

...

procedure TListView.WMHScroll(var Message: TWMHScroll);
begin
  inherited;
  // to do
end;

procedure TListView.WMVScroll(var Message: TWMVScroll);
begin
  inherited;
  // to do
end;

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

Электронные экзамены

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