listview中的鼠标指针能不能是这样？

delphipan 2003-09-01 04:30:17

当鼠标移动到Listview控件的每一个Item上时，鼠标指针能不能变成那个常见到的“手型”，等待各位高手的帮忙！

...全文

34 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

delphipan 2003-09-01

打赏
举报

好了,问题解决,谢谢二位!

Little2000 2003-09-01

打赏
举报

procedure TFrmEndAccount.ListView1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
with ListView1 do
begin
if ListView1.GetItemAt(x,y) <> nil then
Cursor := crHandPoint
else Cursor := crDefault
end;
end;

delphipan 2003-09-01

打赏
举报

谢谢楼上这位仁兄！
treeview没有问题,但是listview中有点问题,小弟是初学,请再指点!

lxpbuaa 2003-09-01

打赏
举报

procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
with TTreeView(Sender) do
if GetNodeAt(X, Y) <> nil then
Cursor := crHandPoint
else Cursor := crDefault
end;

————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————