Главная страница
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.028 c
7-1074243910
незнайка
2004-01-16 12:05
2004.04.11
Enable disk / Disable disk в Device Manager. HELP!!


1-1080227705
Bazil
2004-03-25 18:15
2004.04.11
Вопрос по QuickReport


1-1080131031
Kein
2004-03-24 15:23
2004.04.11
Почему не ставится Делфи 5


1-1079615848
Pa5ha
2004-03-18 16:17
2004.04.11
Возможности синтаксиса и компиляьора.


14-1081796904
Knight
2004-04-12 23:08
2004.04.11
72 метра