Drag & Drop + HBitmap

[BOBAH13]

Собственно как видно из топика, сколько раз не брался столько и бросал. Но вот щас решился, конечно могу я сам свое окно сделать и с эимитировать такой Drag&Drop но лучше взаимодействовать с системой. Собственно проблема не то что в самом Drag&Drop а в том как сделать чтобы я мог указывать при перетаскивании из моей проги куда-либо ту картинку под курсором во время перетаскивания. Нашел ссылку на этом форуме но там .NET и вообще немного не допонял смысла, как я понял вроде там создается курсор с этой самой картинок и указывается как текущий в системе. Или все же есть вариант ? Если через курсор то я уж лучше руками все сделаю без системы.

[rpy3uH]

когда тиз твоей проги что-то перетаскивают так есть стандартный значок, тебе надо его заменить?

[BOBAH13]

Вопрос у вас конечно такой с заковыркой. Я в теории спрашиваю как мне сделать Drag&Drop чтобы при перетаскивании возле курсора была "картинка" того что я перетаскиваю.

[rpy3uH]

сообщение TVM_CREATEDRAGIMAGE пробовал? (или TreeView_CreateDragImage). После этого сообщения мы получаем хендл имидж_листа.

это читал? http://www.wasm.ru/article.php?article=1001019
посмотри что там написано про сообщение TVM_CREATEDRAGIMAGE

[BOBAH13]

Чтобы не создавать подобную, тему хочу продолжить. Дело в том что, я создал прием файлов в моем приложении.

function TgdDropTarget.Drop(const dataObj: IDataObject; grfKeyState: Integer;
  pt: TPoint; var dwEffect: Integer): HResult;
var
  FETC: TFormatETC;
  STGM: TSTGMedium;
  fileDropped: array [0..MAX_PATH] of char;
  Count, i: Integer;
begin
  Result := S_OK;
  if (FDataObj = NIL) then
  begin
    dwEffect := DROPEFFECT_NONE;
    Exit;
  end;

  with FETC do
  begin
    cfFormat := CF_HDROP;
    ptd := NIL;
    dwAspect := DVASPECT_CONTENT;
    lindex := -1;
    tymed := TYMED_HGLOBAL;
  end;

  if (dataObj.GetData(FETC, STGM) = S_OK) then
  begin

    //ShowMessageFmt('%d', [STGM.tymed]);
    
    if (STGM.tymed = TYMED_HGLOBAL) then
    begin
      Count := DragQueryFile(STGM.hGlobal, MAXDWORD, NIL, 0);
      
      for i:= 0 to Count - 1 do
      begin
        DragQueryFile(STGM.hGlobal, i, fileDropped, SizeOf(fileDropped));
      end;

      DragFinish(STGM.hGlobal);

    end;  
    
    ReleaseStgMedium(STGM);
  end;

  dwEffect := DROPEFFECT_LINK;
end;

Да, работает на отлично со всеми файлами в системе. (пример как подобное реализовать найти не сложно).

Дело в том, что к примеру объекты шела (таже корзина) просто не проходит

if (dataObj.GetData(FETC, STGM) = S_OK) then

как быть ? Как верно составить FETC чтобы получить ID объекта ?

[BOBAH13]

Решил не создавать новую тему.
Проблема состоит в том, что допустим в какой-то момент времени мне захотелось:
1. Определить позицию курсора
2. Определить окно под курсором
3. Передать по методу Drag&Drop этому окну некоторые файлы (пути к файлам).

Собственно вот код, в теории должно работать, но какому окну не пытался это передать (к примеру, просто навести курсор на десктоп, даже пытался прямо указывать GetDesktopWindow).

Delphi 2009.

const
  Path = 'C:\boot.ini'; // just for fun :)

var 
  Wnd: HWND;
  DropData: PDropFiles;
  Global: HGLOBAL;
begin
  Wnd := WindowFromPoint(Mouse.CursorPos);

  //  if (GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_ACCEPTFILES = WS_EX_ACCEPTFILES) then
  // тут я не уверен надо ли ?
  // begin
    Global := GlobalAlloc(GMEM_SHARE or GHND or GMEM_ZEROINIT,
      SizeOf(TDropFiles) + (Length(Path) + 1) * 2{Wide Char});

     DropData := GlobalLock(Global);
     DropData^.pFiles := SizeOf(TDropFiles);
     DropData^.fWide := True;
     DropData^.pt := Mouse.CursorPos; // нужно ли ?

     StrCopy(PWChar(Integer(DropData) + SizeOf(TDropFiles)), Path);

     GlobalUnlock(Global);

     SendMessage(Wnd, WM_DROPFILES, Global, 0);

     GlobalFree(Global);
end;

Что еще интересно, брал Global как HDROP - и проверял через DragQueryFile - возращает путь нормально.

Помогите
Спасибо. Владимир.

[BOBAH13]

Приветствую.
Щас данный вопрос не в топ листе но все же.
Яркий пример реализации - попробуйте "перетащить" иконку на рабочем столе как такой Drag&Drop реализовать ? Принимаю любые источники будь то статьи или коды на английском или русском языке (сам уже обыскался, не могу найти). Спасибо.