Главная страница
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.069 c
1-1080161677
Александр из Минска
2004-03-24 23:54
2004.04.11
ДОС-комманда


1-1082544641
TUser
2004-04-21 14:50
2004.04.11
Васик и SY576


14-1079745638
Думкин
2004-03-20 04:20
2004.04.11
С днем рождения! 20 мамрта


14-1081694633
Soft
2004-04-11 18:43
2004.04.11
Параметры рассчета антенн.


9-1068311603
MrAngel
2003-11-08 20:13
2004.04.11
glVertexPointerExt в OpenGL.pas отсутствует...