delphi的listview控件实现鼠标高光跟随

Posted 2023-03-26

参考技术A if self.ListView1.Items.Count > 0 then Begin self.ListView1.ItemIndex := self.ListView1.Items.Count-1; self.ListView1.Items[self.ListView1.ItemIndex] .MakeVisible(False); self.ListView1.SetFocus; End; 参考技术B ListView1.HotTrackStyles := [htHandPoint];

delphi ListView 如何改鼠标划过时的底图？

图1是自带的鼠标划过时的底图图2是别做的效果要如何才能更改呢

参考技术A 我感觉是不是 边框也可以看出成是图片的一部分，一个有边框的图片，一个没有边框的图片，鼠标划过时，切换图片就行了。这是个大概的思路 参考技术B 可以使用控件的MouseMove，MouseDown来实现你要的效果