| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Drag&Drop из проводника в программу [D7, XP]

_xroot ©   (2005-10-23 20:41:00) 

Видел множество реализаций, но не одно из них у меня по4ему-то (hand.sys глючит) до конца правильно не работало. Плиз киньте реально работающий исходник кода для полуния полных имен всех файлов сброшенных на форму из проводника.

---

kami   (2005-10-23 21:00:00) [1]

Скачать Drag and Drop Component Suite с http:\\www.torry.net - отличнейшая штука, Open Source, прозрачный код и очень легко масштабируется (например, для Drag&Drop файлов, которых на самом деле нет на диске, а есть только их контент в твоей программе).

---

Antonn   (2005-10-23 20:45:00) [2]

 protected
    procedure CreateParams(var Params: TCreateParams); override;
 private
    procedure WMDropFiles(var Message: TWMDropFiles); message WM_DROPFILES;    

procedure TF_PlayList.CreateParams(var Params: TCreateParams);
begin
inherited
CreateParams(Params);
Params.ExStyle := Params.ExStyle or WS_EX_ACCEPTFILES;
end;

procedure TF_PlayList.WMDropFiles(var Message: TWMDropFiles);
var aFile: array [0..255] of Char;
       FilesCount,N : Integer;
begin
     inherited;
FilesCount := DragQueryFile(Message.drop, $FFFFFFFF, nil, 0);
      begin
      for N := 0 to FilesCount - 1 do begin
       DragQueryFile(Message.drop, N, aFile, 256);
     //aFile - название файла и путь
      listbox1.items.add(aFile);
       end;
      end;
      DragFinish(Message.Drop);
end;

---

Наверх