Сообщество Чайников

Вопрос

Как реализовать перетаскивание файлов на ListBox и отображение в нем пути и имени файла, который перетащили?

Ответ

Вот пример реализации для одного файла:

uses
  shellapi;

protected
  procedure wmdropfiles(var msg:tmessage);message wm_dropfiles;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  dragacceptfiles(form2.handle,true);
end;

procedure tform2.wmdropfiles(var msg:tmessage);
var
  filename:array[0..256] of char;
  s:string;
begin
  dragqueryfile(thandle(msg.WParam),0,filename,sizeof(filename));
  s:=strpas(filename);
if fileexists(s) then edit2.text:=s;
  dragfinish(thandle(msg.WParam));
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dragacceptfiles(form2.handle,false);
end;
end.

Александр