Форум: "Начинающим";
Текущий архив: 2005.11.13;
Скачать: [xml.tar.bz2];

Вниз

Drag&Drop из проводника в программу   Найти похожие ветки 

← →
_xroot   (2005-10-23 20:41) [0]

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

---

← →
Antonn ©   (2005-10-23 20:45) [1]

 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;

---

← →
kami ©   (2005-10-23 21:00) [2]

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2005.11.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.038 c