J jiangxiancheng Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-13 #3 设属性Options中ofAllowMultiSelect为Ture就可以了。
Y yzhshi Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-13 #5 混分喽。 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;
混分喽。 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;
H hamsoft Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-13 #6 设属性Options中ofAllowMultiSelect为Ture就可以了。