我想把listbox的item值提出来 并放在edit.text里?
listbox.selected.text?怎么不能像treeview一样?
listbox.selected.text?怎么不能像treeview一样?
解决方案 »
- 如何用delphi 7做一个过磅程序,或者哪里有相关资料
- delphi中哪种报表可以让用户自定义打印格式功能的?
- 有关基金分析的系统或是控件可以分享?
- 程序运行了一两个小时后弹出一对话框“List Index Out Of bound(2)”,请问是什么问题?
- 隐藏进程的函数
- 我想用DTS进行数据倒入,设定其为每日定时,然后我更改系统时间,为什么没有执行?如何设定倒入时候先删除原来数据?谢谢
- delphi的数据库连接
- 深度挑战:当选择(鼠标点击或键盘选择)ComboBox的下拉列表中的条目时,如何编写代码,使得ComboBox文本框中的文本显示为格式化后的文本
- 如何象Delphi那样调整控件大小?
- 菜鸟问题:::Combobox的只读?为什么它没有readonly???
- 请问怎么样把图片文件存储到数据库中?
- 在哪里能有键值下载?
var
i:integer;
begin
for i:=0 to (Sender as TListBox ).Count-1 do
begin
if ListBox1.Selected[i] then
Edit1.Text:=(Sender as TListBox ).Items[i];
end;end;
procedure TForm1.ListBox1Click(Sender: TObject); Edit1.Text:=(Sender as TListBox ).Items[(Sender as TListBox ).itemindex];
或者Edit1.Text:=ListBox1.Items[ListBox1.itemindex]
end;
edit1.text:=listbox1.items.text//listbox中的所有内容