Форум: "Основная";
Текущий архив: 2004.02.02;
Скачать: [xml.tar.bz2];
Вниз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
← →
PVOzerski (2004-01-21 10:22) [3]Почитай в справке по 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.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.02.02;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.012 c