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

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

Наверх




Память: 0.47 MB
Время: 0.018 c
1-7948
Fbist
2002-09-24 07:41
2002.10.03
Закрытие формы в Дельфи. Странно...


14-8140
Roman002
2002-09-06 12:13
2002.10.03
NT+D6


1-7895
alxx
2002-09-20 18:28
2002.10.03
Checkbox ы в TListView


1-7950
liho26
2002-09-24 07:40
2002.10.03
Смысл оптимизации...


7-8179
Юра
2002-07-04 23:34
2002.10.03
SoundCard