OpenDialog açıldığında Ctr+Mause,Ctr+A kullanabilme

[haydarxxx]

slm

opendialog kullanarak listbox içine dosya isimlerinin tam yolunu alıyorum (örneğin: D:\MP3\Led Zeppelin\Led Zeppelin - Ozone Baby.mp3 )opendialog açıldığında crl+mause ,ctr+A kullanarak açmış olduğum klasördeki dosyaları seçerek yollarını listboxitems ine almak istiyorum aşagıdaki kod ile yanlızca bir dosya seçebiliyorum.Çoklu yada isteğe bağlı olarak birden çok seçim yapıp listbox a dosya isminin tam yolunu nasıl aktarabilirim.

Kod: Tümünü seç

if opendialog1.execute then
 begin

    if listbox1.items.indexof(opendialog1.filename)=-1 then  //listbox da yoksa
        listbox1.items.add(opendialog1.filename);  //ekle
        edit1.Text:=opendialog1.filename;

  end;

.teşekkürler

[unicorn64]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  OpenDialog1.Options:=OpenDialog1.Options+[ofAllowMultiSelect];
  if OpenDialog1.Execute then
  begin
    for i:=0 to OpenDialog1.Files.Count-1 do
    begin
      if listbox1.items.indexof(opendialog1.Files[i])=-1 then  //listbox da yoksa
        listbox1.items.add(opendialog1.files[i]);  //ekle
    end;
  end;
end;

[haydarxxx]

Çok Teşekkürler