Главная страница
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.042 c
1-1129891440
DelphiLexx
2005-10-21 14:44
2005.11.13
Движение компонента


5-1108881919
Salikcool
2005-02-20 09:45
2005.11.13
Скрыть свойство


1-1130081331
TStas
2005-10-23 19:28
2005.11.13
Интерфейсные объекты


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


14-1129721142
pasha_golub
2005-10-19 15:25
2005.11.13
Космический лифт