Проблема с обнаружением движений мыши в TcxGrid при перетаскивании файлов из Windows Explorer
-
06-07-2019 - |
Вопрос
Недавно я добавил в большое приложение, написанное на 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, непосредственно в отдельное окно журнала, а не в буфер списка строк. Я надеюсь, что кто-то сможет предложить некоторую подсказку относительно того, почему это происходит или как заставить это работать. Р>
Решение
Вместо использования сообщения WM_DROPFILES вы должны использовать OLE Drag'n'Drop. Посмотрите на API RegisterDropTarget. Вы можете получить более подробную информацию о том, где происходит перетаскивание. Вы также можете принять больше видов объектов перетаскивания.