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

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);

---

← →
Ученик ©   (2002-09-20 16:35) [7]

>Kibitzer (20.09.02 16:18)
:-)

---

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

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



Память: 0.46 MB
Время: 0.014 c