汗........虽然还不清楚你到底要怎么做.......不过.........
你显示adoquery里的东西到listbox中应该是先做的吧,在你都显示完了以后才会双击listbox
这时你在双击的时候应该根据选的哪一行,将adoquery也定位到对应的那条记录啊
不知道下面的代码能不能帮你
//添加进listbox
procedure TForm1.Button1Click(Sender: TObject);
var
bookmark:tbookmark;
begin
ADOQuery1.First;
while not ADOQuery1.Eof do begin
bookmark:=ADOQuery1.GetBookmark;
listbox1.Items.AddObject(ADOQuery1.Fields[1].AsString,tobject(bookmark));
ADOQuery1.Next;
end;
end;
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin//定位到响应记录
adoquery1.GotoBookmark(tbookmark(listbox1.Items.Objects[listbox1.ItemIndex]));
end;
