Drag and drop

← →
жаба (2004-01-21 08:19) [0]

Как это реализуется? Ссылку не подкинете почитать? Мне нужно чтобы как в Winamp"e WinZip"e при перетаскивании файла из папки на мою программу вызывался бы обработчик, которому передавалось бы имя этого файла

← →
TUser © (2004-01-21 08:32) [1]

Кажется на этом сайте была статья про Drag&Drop. В принцыпе там хорошо написано, как это делать.
А если совсем просто - есть набор компонентов. Так и называется Drag&Drop - там такую фичу можно организовать просто задав им соотвествующие св-ва.

← →
Ann © (2004-01-21 08:51) [2]

http://www.delphimaster.ru/articles/dragndrop/index.html

Почитай в справке по Win32API:
WM_DROPFILES, DragAcceptFiles, DragFinish, DragQueryFile, DragQueryPoint. А вот пример обработчика из моей проги (целиком, без выбрасывания лишних кусков) - всё, что после DragFinish, - частности, связанные только с моей прогой.

procedure tForm1.WmDropfiles(var M:tWmDropFiles);
var
buf:array[1..264]of char;
l:longint;
s:string;
begin
fillchar(buf,sizeof(buf),0);
DragQueryFile(M.Drop,0,@buf,sizeof(buf));
s:=string(pChar(@buf));
DragFinish(M.Drop);
M.Result:=0;
if s<>""then
if FileExists(s) then
if not DirectoryExists(s)then
begin
opendialog1.filename:=s;
doOpenFile(s);
form1.caption:=captionText;
end;
end;
end.

Drag and drop Найти похожие ветки