opendialog这个控件如何打开多个文件? (50分)

  • 主题发起人 主题发起人 小小豆豆龙
  • 开始时间 开始时间

小小豆豆龙

Unregistered / Unconfirmed
GUEST, unregistred user!
请教!!!希望能有详细的代码说明![V]
 
opendialog1.excute;
 
设属性Options中ofAllowMultiSelect为Ture就可以了。
 
同上!!
 
混分喽。
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
if OpenDialog1.Execute then
for i := 0 to OpenDialog1.Files.Count - 1 do
ListBox1.Items.Add(OpenDialog1.Files)
end;
 
设属性Options中ofAllowMultiSelect为Ture就可以了。
 
接受答案了.
 
后退
顶部