Drag&Drop

← →
Torin (2004-04-18 15:56) [0]

Может кто знает как реализовать Drag&Drop файлов из моего приложения в explover (лучше на примере)?

← →
DVM © (2004-04-18 17:52) [1]

http://podgoretsky.com/ftp/Docs/Delphi/D3/D3ProgLib/ch_04.htm#1

там в коде правда есть ошибки, незначительные.

← →
Torin (2004-04-19 19:39) [2]

Большое спасибо!

← →
Torin (2004-04-19 21:09) [3]

Хотя от таких "ошибок" у меня одно место разболелось :-). Если кто будет юзать то чтобы несколько файлов всё же копировались за раз стоит изменить:

c := PChar (DropFiles);
c := c + DropFiles.pFiles;
for i := 0 to Self.Files.Count-1 do
begin
StrCopy (c, PChar (Self.Files[i]));
c := c + Length (Self.Files[i]);
end;

на:
c := PChar (DropFiles);
c := c + DropFiles.pFiles;
for i := 0 to Self.Files.Count-1 do
begin
StrCopy (c, PChar (Self.Files[i]));
c := c + Length (Self.Files[i]) + 1;
end;
ну а остальное действительно по мелочи.

Drag&amp;Drop Найти похожие ветки

Drag&Drop Найти похожие ветки