Проблема с обнаружением движений мыши в TcxGrid при перетаскивании файлов из Windows Explorer

Question

Недавно я добавил в большое приложение, написанное на Delphi (версия 2009), функцию, которая позволяет пользователю перетаскивать файлы из проводника Windows и помещать их в элемент управления TcxGrid. Я добился этого с помощью обычного метода присоединения моего собственного оконного процесса к сетке и перехвата сообщения WM_DROPFILES:

 originalGridWindowProc := cxGrid.WindowProc; // remember the old one
 cxGrid.WindowProc := GridWindowProc;  // assign the new one
 DragAcceptFiles(cxGrid.Handle, LongBool(True)); // setup to accept dropped files

Сейчас я пытаюсь улучшить эту функцию, чтобы обнаруживать, когда пользователь помещает файл в существующую строку в сетке, что начинает процесс перезаписи существующего файла новой версией.

Моей первой мыслью было посмотреть, сработает ли событие mouseover для элемента управления grid. Да, но не во время операции перетаскивания.

Затем я использовал программу Winspector, чтобы увидеть, какие сообщения были отправлены в элемент управления grid, когда мышь перемещается по сетке, и теперь я могу определить, над какой строкой находится мышь, и выделить ее. Я использую ту же технику, что и выше, но в этом случае я переопределяю процедуру окна для GridSite, а не саму сетку, потому что именно там сообщения, кажется, идут в соответствии с Winspector:

  originalGridSiteWindowProc := cxGrid.ActiveView.Site.WindowProc;
  cxGrid.ActiveView.Site.WindowProc := GridSiteWindowProc;

Вот тело GridSiteWindowProc:

procedure Tfrm.GridSiteWindowProc(var message: TMessage);
var
  hitTest: TcxCustomGridHitTest;
  gridRecord: TcxCustomGridRecord;
begin
  //Log(IntToStr(message.Msg));
  case message.Msg of
    WM_NCHITTEST: begin
      hitTest := cxGrid.ActiveView.GetHitTest(cxGrid.ScreenToClient(Mouse.CursorPos));
      if hitTest is TcxGridRecordCellHitTest then begin
        gridRecord := TcxGridRecordCellHitTest(HitTest).GridRecord;
        if Not gridRecord.Focused then
          gridRecord.Focused := True;
      end;
      originalGridSiteWindowProc(message);
    end
    else
      originalGridSiteWindowProc(message);
  end;
end;

Как видите, я перехватываю сообщение WM_NCHITTEST для достижения этой цели. Согласно Winspector, это сообщение также отправляется в окно узла сетки во время операции перетаскивания, но если я раскомментирую тот оператор Log (), который выведет значение сообщения в список строк (который я затем вручную дам в поле memo), Я определил, что по какой-то причине я получаю только одно или два из этих сообщений при перетаскивании файла по сетке.

Теперь - вот интересная часть: если у меня работает Winspector и отслеживает сообщения, идущие в это окно, я неожиданно начинаю получать все сообщения WM_NCHITTEST во время операции перетаскивания файла. Это также имеет место, если я вывожу целочисленное значение всех сообщений, поступающих в окно proc, непосредственно в отдельное окно журнала, а не в буфер списка строк. Я надеюсь, что кто-то сможет предложить некоторую подсказку относительно того, почему это происходит или как заставить это работать.

Answer 1

Вместо использования сообщения WM_DROPFILES вы должны использовать OLE Drag'n'Drop. Посмотрите на API RegisterDropTarget. Вы можете получить более подробную информацию о том, где происходит перетаскивание. Вы также можете принять больше видов объектов перетаскивания.