如何设置Listbox的行间距?

  关于Listbox的问题?

 1. 如何设置Listbox的行间距?
 
 2. 如何实现当鼠标点击Listbox时,被选中的那一行在鼠标点击处出现一控件?
    也就是怎么计算出被选中的那一行鼠标点击处的绝对坐标位置(X,Y)?

 

abs(ListBox1.Font.Height);就是高度

 

ListBox1.Font.Height*2+4

 

呵呵
ListBox1.Font.Height经常是负的，所以最好加abs

还有，因为这是字体高度，所以最好加一个常数，但不要*2，这是不对了。

所以应该是abs(ListBox1.Font.Height)+C;，你测试一下，给C一个值，就可以了。

ListBox1.itemheight := 值；
ListBox1.Style := lbOwnerDrawFixed;