Declaration

TIEDropFilesEvent = procedure(Sender: TObject; ssFiles: TStrings; var DropEffect: Integer) of object;

Description

Used by OnDropFiles whenever files are dropped onto the control.

ssFiles is a list of files that have been dropped.
DropEffect is the action that will be performed on the files. It can be modified to override the default handling. Supported values are: DROPEFFECT_NONE (0), DROPEFFECT_COPY (1) or DROPEFFECT_MOVE (2)

Example

procedure TMyForm.IEFolderMView1DropFiles(Sender: TObject; ssFiles: TStrings; var DropEffect: Integer);
begin
  // Do not allow multiple files to be dropped
  if ssFiles.Count > 1 then
  begin
    DropEffect := DROPEFFECT_NONE;
    MessageBeep( MB_ERROR );
  end;
end;

---

Loading contents...