关于ListBox1的问题 高难度!!!!!!!!!!!有人会吗

Question

Listbox1中有10行内容
并且 第一行得到了焦点我把listbox 的高度设成很小 就显示1行
现在我点上下尖头的时候 LISTBOX里的内容是变了 可是 焦点没有跟着走,还是第1行的焦点!!
有人知道点上下尖头的时候如何让焦点和显示的内容同步.
也就是说  如何通过点 上下尖头来控制 LISTBOX1中的焦点

Answer 1

向上：
I:=I-1;  
listbox1.Selected[I]:=true;向下：
I:=I+1;  
listbox1.Selected[I]:=true;不知道我理解对了不

Answer 2

var I: Integer;
向上：
I:=I-1;  
listbox1.Selected[I]:=true;向下：
I:=I+1;  
listbox1.Selected[I]:=true;

Answer 3

不会，这个需要捕获进度条的事件，等高人来解答。
如果只显示一条记录，可以用COMBOBOX来做，上下健就能选记录，放多一个UPDOWN控件可以用鼠标选。