Скачать: 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 вся ветка

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



Память: 0.44 MB
Время: 0.033 c