请教listview与combobox的简单问题

Question

我从数据库取了一些数据：
  begin
       adoquery1.sql.Clear;
        adoquery1.Prepared;
        adoquery1.SQL.Add('select * from LT_user');
        adoquery1.Close;
        adoquery1.open;
        ADOQuery1.first;
     listview1.Items.clear;
while not ADOQuery1.Eof do
  begin
      listview1.Items.Add.caption:=ADOQuery1.fieldbyname('phone').asstring;
    ADOQuery1.next;
  end;
end;
       我想当listview中用鼠标选定哪一个的时候再combobox顶端显示listview中item项caption的内容
如何实现呢 ，谢谢(初学者）

Answer 1

combobox.text := listview1.Selected.Caption;

Answer 2

因为这个是一个button实现的连接并且显示数据库的功能，所以不能把语句放在这里呀
这句我是知道这样写的，就是不知道放在什么地方，难道一定要一直循环检测有没有selected吗？
具体放在什么地方呢

Answer 3

combobox.text := listview1.Selected.Caption;放在combobox的onclick事件上

Answer 4

哈哈！终于明白我说的意思了，但是能不能实现在顶端直接显示，不用click combobox呀？
一定给分！

Answer 5

我晕...你不CLICK COMBOBOX
这句话怎么成立 ::
我想当listview中用鼠标选定哪一个的时候再combobox顶端显示listview中item项caption的内容
......
何况...你在COMBOBOX的CLICK时..可能LISTVIEW中没有选中的项目..那岂不是....

Answer 6

呵呵!不是呀,首先我从数据库取值到->listview然后有
                                         ---1 （caption)
                                         ---2
                                         ---3
同时我把这些值都放入combobox了呀，现在我想的是点击上面的1,2,3之类的都会在combobox.text中显示1,2,3
   如果向上面所说的方法onclick话我在选择我从数据库掉出来的1，2，3时就会报错，因为我是选择combobox的下拉菜单还是选择那个onclick事件呢？
多谢请教

Answer 7

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  if listview1.Selected <>0 then
    combobox.text := listview1.Selected.Caption;
end;这样子行不行？