Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.03;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.007 c
7-8208
иван
2002-07-23 14:32
2002.10.03
Кодировка файлов


1-8034
FleX
2002-09-22 15:14
2002.10.03
Как поместить иконки в Popup Menu


3-7869
Шурик Ш
2002-09-12 14:52
2002.10.03
Drag&Drop: Источник DBGrid


3-7854
Max Zyuzin
2002-09-13 11:43
2002.10.03
Вопрос по SQL


7-8196
vasya_dvc
2002-06-07 00:48
2002.10.03
Как





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский