четверг, 29 октября 2009 г.

Перетаскивание объекта оболочки, часть 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, и показываем сообщение, если это так.

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

Комментариев нет:

Отправить комментарий

Можно использовать некоторые HTML-теги, например:

<b>Жирный</b>
<i>Курсив</i>
<a href="http://www.example.com/">Ссылка</a>

Вам необязательно регистрироваться для комментирования - для этого просто выберите из списка "Анонимный" (для анонимного комментария) или "Имя/URL" (для указания вашего имени и ссылки на сайт). Все прочие варианты потребуют от вас входа в вашу учётку (поддерживается OpenID).

Пожалуйста, по возможности используйте "Имя/URL" вместо "Анонимный". URL можно просто не указывать.

Ваше сообщение может быть помечено как спам спам-фильтром - не волнуйтесь, оно появится после проверки администратором.