Вниз
Скачать: CL | DM;

TListBox   Найти похожие ветки 

← →
Spinu Oleg   (2005-09-26 18:43) [0]

Есть компонент TListBox.
Как можно узнать над каким элементом (item) списка в данный момент находится курсор мыши.


← →
Leonid Troyanovsky ©   (2005-09-26 18:59) [1]


> Spinu Oleg   (26.09.05 18:43)  
> Есть компонент TListBox.
> Как можно узнать над каким элементом (item) списка в данный
> момент находится курсор мыши.


Например, в OnMouseMove - ItemAtPos.

--
Regards, LVT.


← →
Spinu Oleg   (2005-09-27 17:40) [2]

Сам разобрался. Вот ответ.

 // Индекс первого видимого элемента в списке
 TopIndex := SendMessage(lb.Handle, LB_GETTOPINDEX,0,0) ;
 // Позиция курсора мыши относительно экрана
 GetCursorPos(pMouse);
 // Позиция курсора мыши оносительно верхнего угла
 pLb := lb.ScreenToClient(pMouse);
 // Высота элемента списка
 h := lb.ItemHeight;
 // Номер элемента над которым в данный момент находится мышь
 ItemIndex := TopIndex+Trunc(plb.Y/h);


← →
Fay ©   (2005-09-27 18:05) [3]

2 Spinu Oleg   (27.09.05 17:40) [2]
>> Trunc(plb.Y/h);
div не прокатит?



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

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



Память: 0.45 MB
Время: 0.041 c
2-1128193671
NikNet
2005-10-01 23:07
2005.10.23
Можно ли положить PupupMenu как панель


1-1128346886
@Ujin
2005-10-03 17:41
2005.10.23
Как можно добавить в TCustomForm published свойства?


2-1127750520
Гость22
2005-09-26 20:02
2005.10.23
Как динамически добавить подменю в MainMenu?


14-1127983768
ThreeTONE
2005-09-29 12:49
2005.10.23
Потянет ли LPT порт такое?


2-1127664081
QwertyKz
2005-09-25 20:01
2005.10.23
Microsoft Jet




   Наверх