[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;

[Electronic_Arts]

СПАСИБО ОГРОМНОЕ!!!

Код:

var
i:integer;
 li: TListItem;
   ind: string;
   size:real;
   b :byte;
begin
for i:=0 to filelistbox1.Items.Count-1 do
begin
getfilesize(filelistbox1.items[i]);
  size:=(getfilesize(filelistbox1.items[i]));
  b:=0;
  while (Size>=1024) and (b<3) do
   begin
    size:=size/1024;
    b:=b+1;
  end;
  if b=1 then ind:='Кб';
  if b=2 then ind:='МБ';
  if b=3 then ind:='ГБ';
  if b=0 then ind:='байт';
  li := ListView1.Items.Add;
listview1.AddItem(filelistbox1.Items[i] ,self);
li.SubItems.Add( floattostrf(Size,fffixed,5,2)+' '+ind); //
end;

SubItems добавляется после файла а не перед файлом как исправить??

[<<D>>]

Если у тебя есть SubItems нужно сделать так:

Код:

with listview1.Items.Add do
begin
caption:=filelistbox1.Items[i];
SubItems.Add( floattostrf(Size,fffixed,5,2)+' '+ind); //
end;

[Electronic_Arts]

Спасибо - еще один последний вопрос
а как сделать чтоб при включении чекбокса та строка приобретала зеленый цвет

[<<D>>]

Ну это уже рисованием на listview'e.
Закрашуешь нужную тебе строку, и сверху рисуешь текст, т.к. после рисования он не будет виден.

[Electronic_Arts]

Ясно - всеравно спасибо за помощь!