Description


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



Пример


procedure Form1_Memo1_OnDropFiles (Sender: TObject; ArrayOfFiles: array of string; X, Y: Integer);
var
    i, c: integer;
begin
    c := Length(ArrayOfFiles)-1;
    for i := 0 to c do
    begin
        Form1.Memo1.Lines.Add(ArrayOfFiles[i]);
    end;
end;