Скачать: CL | DM;

Наличие полосы прокрутки в ListView   Найти похожие ветки 

← →
Chaser ©   (2006-03-07 10:38) [0]

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

---

← →
ECM ©   (2006-03-07 11:30) [1]

> Насколько я понял через 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 - но здесь это неважно)

---

← →
Chaser ©   (2006-03-07 11:37) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.051 c