[Electronic_Arts]

Заранее благодарю!

[AlexSku]

У FileListBox1 ставим свойство DragMode=dmAutomatic и пишем событие OnEndDrag:

Код:

procedure TForm1.FileListBox1EndDrag(Sender, Target: TObject; X, Y: Integer);
begin
  ListView1.AddItem(ExtractFileName((Sender as TFileListBox).FileName), nil);
end;

Это для первой колонки. Останется ещё заполнить две другие.

[Electronic_Arts]

Мне надо чтоб оно сама загрузила - а не ташить его

[<<D>>]

Просто переделай немного:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
listview1.AddItem(FileListBox1.FileName,self);
end;

[Electronic_Arts]

спасибо - а как можно сделать чтоб автоматически добавлялись все файлы а не по одиночке - а то в этом случае чтоб добавить надо сперва выделить обект - а нельзяли без выделения?

[<<D>>]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to filelistbox1.Items.Count-1 do
begin
listview1.AddItem(filelistbox1.Items[i],self);
// или так listview1.AddItem(filelistbox1.Directory+filelistbox1.Items[i],self);
end;
end;