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

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

Как перетаскивать файлы из проводника в программу [D7, WinXP]

Sourse ©   (2004-08-06 16:00:00) 

Подскажите пожалуйста, как можно открыть файл путём перетаскивания этого файла курсором из проводника прямо в программу?

---

TUser   (2004-08-06 16:07:00) [1]

Посмотри на torry.net - я видел там специальные компоненты для организвания Drag&Drop, в т.ч. и для этой задачи.

---

Кириешки   (2004-08-06 16:06:00) [2]

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

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

procedure TForm1.WMDropFiles(var Message: TWMDropFiles);
var aFile: array [0..255] of Char;
   n, cnt: Integer;
begin
 inherited;
 cnt := DragQueryFile(Message.drop, $FFFFFFFF, nil, 0);
 for n := 0 to cnt - 1
 do
  begin
  DragQueryFile(Message.drop, n, aFile, 256); // get the FileName (max characters 255 + #0)
  (. . . . . . . . .)
  end;
 DragFinish(Message.Drop); // Free resources
end;

---

VMcL   (2004-08-06 16:03:00) [3]

FAQ:
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=1017056225&n=15
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988619923&n=15

---

Наверх