drag and drop

[digital-stream]

Как сделать так чтобы когда перетащить файл к Listbox1 в Listbox1 добавлялось пут к файлу

[Johnson]

Наверное, с помощью ебической силы (да простят меня модераторы)...

Поставьте задачу повменяемее. Мы не телепаты и не знаем что у вас в листах и что вам нужно.

[spamer]

uses
   shellapi;

...

  public
    { Public declarations }
    procedure WMDROPFILES(var Message: TWMDROPFILES);message WM_DROPFILES;
    procedure ProcessFile(Filename: string);

...

procedure TForm1.FormCreate(Sender: TObject);
begin
  DragAcceptFiles(ListBox1.Handle, true);
end;

procedure TForm1.ProcessFile(Filename: string);
begin
 ListBox1.TopIndex:= ListBox1.Items.Count-1;
 ListBox1.Items.Add(filename);
end;

procedure TForm1.WMDROPFILES(var Message: TWMDROPFILES);
var Files: Longint;
        i: Longint;
   Buffer: array[0..MAX_PATH] of Char;
begin
 Files:= DragQueryFile(Message.Drop,$FFFFFFFF,nil,0);
 for i:= 0 to Files - 1 do begin
  DragQueryFile(Message.Drop,I,@Buffer,SizeOf(Buffer));
  ProcessFile(Buffer);
 end;
 DragFinish(Message.Drop)
end;

Смотреть ссылки - 1 и 2