| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Наличие полосы прокрутки в ListView [D7, WinXP]

Chaser ©   (2006-03-07 10:38:00) 

Как в ListView (в режиме vsReport) узнать о наличии вертикальной полосы прокрутки (присутствует она или нет)?
Насколько я понял через TScrollInfo это узнать нельзя.
Есть какие-нибудь способы?

---

Chaser   (2006-03-07 11:37:00) [1]

Спасибо! Как то я сам не догадался (((

---

ECM   (2006-03-07 11:30:00) [2]

> Насколько я понял через TScrollInfo это узнать нельзя.

Это почему?
Вот так вроде бы все работает:

procedure TForm1.ListView1Resize(Sender: PObj);
var
 si: TScrollInfo;
begin
 si.cbSize := SizeOf(TScrollInfo);
 si.fMask := SIF_PAGE or SIF_RANGE;
 GetScrollInfo(ListView1.Handle,SB_VERT,si);
 if si.nPage > si.nMax then Label1.Caption := 'NOT VISIBLE'
 else Label1.Caption := 'VISIBLE'
end;

(Извините за названия функций - проверялось на KOL - но здесь это неважно)

---

Наверх