各位大侠:
我是菜鸟,请问个很菜的问题:
我窗体上有opendialog、listview、button各一个,opendialog中mulselect:=true;我想单击按钮把opendialog中多选的文件名称加入到listview中,不知道如何写!
请各位帮帮忙~!谢谢了!~
最好有代码~~!^_^
我是菜鸟,请问个很菜的问题:
我窗体上有opendialog、listview、button各一个,opendialog中mulselect:=true;我想单击按钮把opendialog中多选的文件名称加入到listview中,不知道如何写!
请各位帮帮忙~!谢谢了!~
最好有代码~~!^_^
解决方案 »
- delphi中怎么在dll中导出一个类?
- 关于DELPHI与ORACLE数据库类型匹配问题
- 怎样才能隐式的调用一个命令行的程序,并捕获该进程的标准输出?
- 数据对齐的问题???
- MDI程序的难题,试了一天都解决不了,分不够可再加,请进!
- if (you.回答=true) and (第一个回答) then you.总分=you.现有分+50 end.
- cxGrid 的Customer Filter如何不區分大小寫
- 在做delphi安装盘时,如何象网上有些软件如:cuteftp,最后就一个可执行的安装文件,数据库都自然包括在内,是要什么其它什么软件吗,delphi自带的那个不行吗?
- HELP!!! How to debug the CGI programe with Interexpress and MIDAS?
- 关于delphi中sql7用户id的改变
- 我在delphi控件中显示繁体字不正常?
- 高分请教报表控件QuickRep的一个小问题。
var MyListItem:TListItem;
begin
if opendialog1.Execute then
begin
MyListItem:=TListItem.Create(nil);
MyListItem:=ListView1.Items.Add;
MyListItem.Caption:=OpenDialog1.FileName;
end;
end;
倒是在listView里面发现了MultiSelect属性,搂住给解释一下吧...
再写下面代码就可以啦
if opendialog1.Execute then
listbox1.Items :=opendialog1.Files ;
////////////
procedure TForm1.Button1Click(Sender: TObject);
var
iCount:Integer;
begin
if OpenDialog1.Execute then
begin
for iCount:=0 to OpenDialog1.Files.Count-1 do
begin
with ListView1.Items.Add do
begin
caption:=OpenDialog1.Files[iCount];
end;
end;
end;
end;