Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.13;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
2-1129469248
Megabyte
2005-10-16 17:27
2005.11.13
Вопрос по IBX


1-1129874063
Layner
2005-10-21 09:54
2005.11.13
Как в цикле найти все виз. компаненты на форме


4-1126431827
Edelweis
2005-09-11 13:43
2005.11.13
Изменить права NTFS


2-1129617492
TruthMan
2005-10-18 10:38
2005.11.13
Запись в таблицу через сервер Word


14-1129780309
Вьюер
2005-10-20 07:51
2005.11.13
Кто нибудь пользуется универсальным пультом ДУ ?