Question

我正在从outlook中拖放电子邮件附件。这些文件将被放入虚拟树视图中。

我在拖动事件结束时的导入功能需要一段时间来处理文件，它会冻结Outlook应用程序，直到函数结束。

我希望能够在函数中途结束拖动操作。

procedure TForm.vstItemsDragDrop(Sender: TBaseVirtualTree;
  Source: TObject; DataObject: IDataObject; Formats: TFormatArray;
  Shift: TShiftState; Pt: TPoint; var Effect: Integer; Mode: TDropMode);
var
  fileList          : IStringList;
  drop              : IOleDrop;
begin
  fileList:= TIStringList.Create;

  drop := COleDrop.Create.def(DataObject);
  fileList := drop.GetDroppedFileList(fileWarnings);

  //I want to terminate the drag operator here because I already have what I need

  //This imports parts takes a while to run so I want to end the drag and drop operation
  //Outlook freezes still has cursor state on copy and doesn't respond to clicks or ESC
  ImportParts( fileList)    
end;

Answer 1

我通常只是在Drop事件中获取信息（即不处理它），然后向我的表单发送一条消息，告知有新的信息需要处理。 Drop事件因此退出得相当快，然后消息处理程序接收并处理丢弃的任何内容。

在你的情况下，你应该做这样的事情：

CONST
  WM_PROCESS_DROPPED_FILES = WM_USER+42;

TYPE
  TMainForm = CLASS(TForm)
                .
                .
              PRIVATE
                fileList : IStringList; // Ie. move the declaration here...
                PROCEDURE ProcessFiles(VAR MSG : TMessage); MESSAGE WM_PROCESS_DROPPED_FILES;
                .
                .
              END;

并在你的drop事件中删除fileList的声明（你已经使它成为表单的私有成员而不是局部变量）并替换

ImportParts(fileList)

与

PostMessage(Handle,WM_PROCESS_DROPPED_FILES)

然后实施

PROCEDURE TMainForm.ProcessFiles(VAR MSG : TMessage);
  BEGIN
    ImportParts(fileList)
  END;

可能有必要将fileList变量改为TStringList而复制那里的信息，以防在Drop事件退出时结束对IStringList的引用，但一般原则是相同的 - 不要在Drop事件中处理数据，在 Drop事件退出后将其推迟到。

在Delphi应用程序中结束或取消拖放操作

1 个答案: