Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.05.28;
Скачать: 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 вся ветка

Текущий архив: 2006.05.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.027 c
1-1145538376
kyn66
2006-04-20 17:06
2006.05.28
Копирование в буфер


1-1145672012
Александр123123
2006-04-22 06:13
2006.05.28
как определить на какой объект был совершен клик мыши


4-1141606261
Nostradamus
2006-03-06 03:51
2006.05.28
HKLM под Windows Vista (Build 5308)


2-1147306113
rosl
2006-05-11 04:08
2006.05.28
enter


2-1147277350
Nicky
2006-05-10 20:09
2006.05.28
Как запаролить форму