Текущий архив: 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.037 c
