UC知道delphi Dblistbox 问题 在线等。。。
来源：百度知道 编辑：UC知道 时间：2024/06/07 19:58:34
如何能得到DBListBox中选择项的内容？
比如。。我点哪个
。EDIT的TEXT 就为那个
（我让edit.text:=Dblistbox 。items.text）
可以所有的东东都到文本框里去了
比如。。我点哪个
。EDIT的TEXT 就为那个
（我让edit.text:=Dblistbox 。items.text）
可以所有的东东都到文本框里去了
如果你的dblistbox可选的话,添加以下代码应该可以实现:
procedure TForm2.DBListBox1Click(Sender: TObject);
var i : integer;
begin
for i := 0 to dblistbox1.items.Count - 1 do
begin
if dblistbox1.Selected[i] then
dbedit1.Text := dblistbox1.Items[i];
end;
end;
不过我还不知道dblistbox怎么修改属性能让它可选(从没有用过),上面的代码是在listbox上用的.
呵呵