Скачать: CL | DM;

Как перетаскивать файлы из проводника в программу   Найти похожие ветки 

← →
Sourse   (2004-08-06 16:00) [0]

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

---

← →
VMcL ©   (2004-08-06 16:03) [1]

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

---

← →
Кириешки ©   (2004-08-06 16:06) [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;

---

← →
TUser ©   (2004-08-06 16:07) [3]

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c