Перетаскивание объекта оболочки, часть 3: определение "оптимизированного" перемещения

Это перевод Dragging a shell object, part 3: Detecting an optimized move. Автор: Реймонд Чен.

Мы рассматривали, как можно определить, что операция drag/drop привела к концептуальному перемещению, даже если флаг DROPEFFECT_MOVE не был установлен.

Если приёмник (drop target) - это оболочка (shell), то вы можете запросить у перетаскиваемого объекта (data object) данные типа CFSTR_PERFORMEDDROPEFFECT, чтобы посмотреть, каким было действие по перетаскиванию.

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  ...
    if (dwEffect and DROPEFFECT_MOVE) <> 0 then
      DeleteFile(FileName);
    CheckPerformedEffect(pdto);
  end;
end;

Конечно же, нам теперь нужна функция CheckPerformedEffect:

procedure TForm1.CheckPerformedEffect(const pdto: IDataObject);
var
  fe: FORMATETC;
  stgm: STGMEDIUM;
  pdw: PDWORD;
begin
  FillChar(fe, SizeOf(fe), 0);
  fe.cfFormat := RegisterClipboardFormat(CFSTR_PERFORMEDDROPEFFECT);
  fe.dwAspect := DVASPECT_CONTENT;
  fe.lindex := -1;
  fe.tymed := TYMED_HGLOBAL;
  if SUCCEEDED(pdto.GetData(fe, stgm)) then
  try
    if ((stgm.tymed and TYMED_HGLOBAL) <> 0) and
        (GlobalSize(stgm.hGlobal) >= SizeOf(DWORD)) then
    begin
       pdw := GlobalLock(stgm.hGlobal);
       if Assigned(pdw) then
       try
         if pdw^ = DROPEFFECT_MOVE then
           Application.MessageBox('Moved', 'Example', MB_OK);
       finally
         GlobalUnlock(stgm.hGlobal);
       end;
    end;
  finally
    ReleaseStgMedium(stgm);
  end;
end;

Если вы перетаскиваете объект на окно оболочки, то приёмник установит данные в перетаскиваемом объекте, зарегистрировав их под форматом буфера обмена CFSTR_PERFORMEDDROPEFFECT. Данные имеют тип DWORD в HGLOBAL, а их значение - соответствующий флаг типа операции, до того как были приняты любые попытки оптимизации перемещения.

В нашем случае мы проверяем, не была ли это DROPEFFECT_MOVE, и показываем сообщение, если это так.

Читать далее.