关于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;