Question

关于delphi listbox 的问题

ListBox 可不可以 把文件路径添加 进去
但 显示的时候 只显示 文件名
我写的代码 老是出错
帮我看下
if opendialog1.Execute then
for i := 0 to opendialog1.Files.Count - 1 do
// form2.ListBox1.Items.Add(opendialog1.Files[i]);
form2.ListBox1.AddItem(extractfilename(opendialog1.Files[i]),opendialog1.Files.Objects);

Answer 1

很遗憾~ 那是不可以的~ 如果要你说的效果的话~
我建议你继承 TListBox 再写一个控件~ 然后在其中在写一个控件 ~ 或者~ 还有一个更简单的方法~ 那就是使用~ TListView 控件~ 将其ViewStyle 设置成 vsReport 然后在 columns 中设置两个列 然后将文件的名称加载到第一个列中，把文件的路径加载到第二个列 然后~ 将第二个列隐藏（设置第二个列的Width为0），将第一个列的AutoSize 设置为 True 再将ListView 的ShowColumnHeaders设置为False, 然后把ListView 的RowSelect 设置 为 True就可以了 ~ 只是让使用者将ListView 误认为ListBox 就行了~