http://bbs.csdn.net/topics/390458211的持续提问

http://bbs.****.net/topics/390458211的继续提问
之前这个问题http://bbs.****.net/topics/390458211没有完全解决，我想当鼠标在listbox上移动过程中，光标还是在edit里面闪动（可以继续输入），当我点击鼠标时候，listbox鼠标所在行选择进去edit,或者通过向下向上键选择后按回车。谢谢各位了。实现百度上的效果
------解决方案--------------------
下拉列表展开后，处理它的按键，按了下箭头就把当前选中项移到下一项，反之。也就这样而已了。
------解决方案--------------------
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 38 then
    ListBox1.Selected[ListBox1.ItemIndex - 1] := true
  else if key = 40 then
    ListBox1.Selected[ListBox1.ItemIndex + 1] := true;
end;