我想在DELPHI里用对话框选取多个文件

我想在DELPHI里用对话框选取多个文件,读取他们的文件名,不知有没有相关控件,或者如何实现,谢谢.

解决方案 »

  1.   

    没有，用ListView和TreeView自己写一个吧
      

  2.   

    procedure TForm1.Button1Click(Sender: TObject);
    var i:integer;
    begin
      OpenDialog1.Execute ;
      with OpenDialog1.Files do
          for I := 0 to Count - 1 do
          begin
            Memo1.Lines.Append(Strings[I]);  { Add the line to the memo }
          end;end;
      

  3.   

    Delphi自带的OpenDialog就可以，把它的Options.ofAllowMultiSelect 属性设为true
      

  4.   

    BusinessSkinForm 第三方控件有个bsSkinFileListBox
      

  5.   

    LuckyJan(小虾无招) 
    Options.ofAllowMultiSelect 属性设为true后可以多选文件了
    而返回的OpenDialog1.FileName是多个文件名吗,文件名是以什么字符隔开的.
    我把他传到EDIT,MEMO,LABEL里都只能看到第一个文件名.
      

  6.   

    OpenDialog1.FileName返回的只是返回第一个文件明，
    如果用Options.ofAllowMultiSelect，那么就要从OpenDialog1.Files列表中读取
    OpenDialog1.Files是TStrings类型，我上面已经举例了
      

  7.   

    所以要用 OpenDialog1.Files 读取多个文件名