Главная страница
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.051 c
2-1129572587
~SaM~
2005-10-17 22:09
2005.11.13
А в паскале есть функции аналогичные дельфовским StrToInt и т.п.?


2-1130307297
pic509
2005-10-26 10:14
2005.11.13
как узнать номер созданной записи


2-1129229041
illy
2005-10-13 22:44
2005.11.13
Реестр


14-1130155998
Дельфятник
2005-10-24 16:13
2005.11.13
Где можно можно скачать Report Builder?


1-1130304630
Ega23
2005-10-26 09:30
2005.11.13
Получить список директив компиллятору