CheckListBox - принудительный скроллинг?

← →
Fishka (2002-09-18 14:04) [0]

Отмечаю элемент в конце списка. По нажатию одной из клавиш размер CheckListBox-а уменьшаю (надо так). Выделенный элемент CheckListBox-а становится вне области видимости (где-то ниже).
Что мне сделать, чтобы при изменениях размера CheckListBox-а выделенный элемент всегда был виден на экране?
(Что-то типа принудительной прокрутки.)

← →
Song © (2002-09-18 14:32) [1]

Установить на него TCheckListBox.ItemIndex

← →
Fishka (2002-09-18 15:04) [2]

ItemIndex в этот момент и так равен номеру текущего выделенного элемента, но сам Item вне области видимости.

← →
Fishka (2002-09-19 16:29) [3]

Очень хочется получить совет ....

← →
Ученик © (2002-09-19 16:38) [4]

SendMessage(CheckListBox1.Handle, LB_SETTOPINDEX, CheckListBox1.ItemIndex, 0);

← →
Fishka (2002-09-20 09:51) [5]

Спасибо. Это кажется то, что нужно.

← →
Kibitzer (2002-09-20 16:18) [6]

> Ученик © (19.09.02 16:38)
> SendMessage(CheckListBox1.Handle, LB_SETTOPINDEX, CheckListBox1.ItemIndex, 0);

Нююю, это можно сделать и проще: CheckListBox1.TopIndex := CheckListBox1.ItemIndex

А вот более корректно, помоему так:
if CheckListBox1.MultiSelect then SendMessage(CheckListBox1.Handle, LB_SETCARETINDEX, CheckListBox1.ItemIndex, 0) else SendMessage(CheckListBox1.Handle, LB_SETCURSEL, CheckListBox1.ItemIndex, 0);

>Kibitzer (20.09.02 16:18)
:-)

CheckListBox - принудительный скроллинг? Найти похожие ветки