Текущий архив: 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
