Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

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

 
Gia Gvatua   (2004-03-24 11:35) [0]

Использую компонент TListView, style vsReport.
Item-ы имеют много SubItem-ов, так что при отображении появляется горизонтальный ScrollBar.
Как в OnMouseMove-е определить над каким SubItem-ом находится мышь.


 
Романов Р.В. ©   (2004-03-24 12:09) [1]

procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
R:TRect;
ht:TLVHitTestInfo;
begin
Item := ListView1.GetItemAt(2, Y);
if Item=nil then Exit;
FillChar(ht,SizeOf(ht),0);
ht.pt.x:=X;
ht.pt.y:=Y;
SendMessage(ListView1.Handle, LVM_SUBITEMHITTEST, 0, Integer(@ht));
Sub:=ht.iSubItem;



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

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

Наверх




Память: 0.46 MB
Время: 0.042 c
14-1082549162
Фикус
2004-04-21 16:06
2004.04.11
Траблы с доступом


14-1082467395
NickBat
2004-04-20 17:23
2004.04.11
Вопрос по HTML


9-1064493291
Igor_
2003-09-25 16:34
2004.04.11
Тормоза OpenGL


7-1080563938
Alex-drob
2004-03-29 16:38
2004.04.11
Закрыть другую программу


1-1082687621
saysu
2004-04-23 06:33
2004.04.11
Казахские шрифты в самом инструменте как добавить