Как перетащить файл в свою программу

[SoftKoc]

Здравствуйте!
На форме есть ListBox. Мне нужно чтобы при перетягивании файла в ListBox, в ListBox добавлялась строка с адресом файла!
Как можно это сделать?
Заранее очень благодарен!

[mihali4]

Тоже есть в моем DFaq:

protected
  procedure WMDropFiles(var Msg: TMessage); message wm_DropFiles; 
...
fname : array[0 .. 256] of Char;
implementation

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

procedure TForm1.FormDestroy(Sender: TObject);
begin
DragAcceptFiles(Handle, False);
end;

procedure TForm1.WMDropFiles(var Msg: TMessage);
begin
     // Получаем имя файла 
     DragQueryFile( THandle(Msg.WParam),0,fname,SizeOf(fname) ) ;
     // Вставляем путь к файлу в листбокс
      ListBox1.Items.Add(fname);
     DragFinish(THandle(Msg.WParam));
end;

[SoftKoc]

Спасибо большое! =-)

[SoftKoc]

А если речь пойдет о перетягивании нескольких файлов?

[mihali4]

Скачайте DFaq - там примеры для нескольких файлов.
(Поиск по форуму "DFaq", я недавно выкладывал последнюю версию)

[BOBAH13]

Сообщение от mihali4

Тоже есть в моем DFaq:

protected
  procedure WMDropFiles(var Msg: TMessage); message wm_DropFiles; 
...
fname : array[0 .. 256] of Char;
implementation

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

procedure TForm1.FormDestroy(Sender: TObject);
begin
DragAcceptFiles(Handle, False);
end;

procedure TForm1.WMDropFiles(var Msg: TMessage);
begin
     // Получаем имя файла 
     DragQueryFile( THandle(Msg.WParam),0,fname,SizeOf(fname) ) ;
     // Вставляем путь к файлу в листбокс
      ListBox1.Items.Add(fname);
     DragFinish(THandle(Msg.WParam));
end;

Без обид конечно, но на более современных, и серьезных проектах такой метод вообще не вариант. Надо идти через IDroptarget (для дельфи), в MFC я использую COldeDropTarget (кажется так). + подключать IDropTargetHelper и регестрировать ОЛЕ ДРОП на окно (хендл). IDropTargetHelper - по желанию, для того чтобы видеть что тянешь, а не супер классный курсор со стрелкой или плюсиком это в кратце, и почемуто я уверен что врятли это кто-то дочитает до конца