Главная страница
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.045 c
7-1075396868
Stexen
2004-01-29 20:21
2004.04.11
PE Section


14-1082003944
WondeRu
2004-04-15 08:39
2004.04.11
Кредит на образование!Что? Где? Почем?


3-1081853258
Kirilll
2004-04-13 14:47
2004.04.11
Delphi+Clarion?


4-1075554927
alex732
2004-01-31 16:15
2004.04.11
Нажать кнопку мыши в окне чужого приложения


3-1081842986
avgur
2004-04-13 11:56
2004.04.11
Константы для Delphi 6.0