Drag&Drop File to any Component

Der folgende Code ist ein Beispiel dafür, wie man Dateien in jede Komponente, die sich auf der Programm-Form befinden, per Drag&Drop ziehen lassen. Das Auswerten des Drags ist der Dateiname.

uses ShellApi

private
    { Private declarations }
    procedure AppMessage(var Msg: Tmsg; var Handled: Boolean);
    function IsDropPointInside(const aDropPoint: TPoint; const aControl: TControl): Boolean;

//

procedure TForm1.AppMessage(var Msg: Tmsg; var Handled: Boolean);
const
  BufferLength: word = 255;
var
  DroppedFilename: string;
  FileIndex: Word;
  QtyDroppedFiles: Word;
  pDroppedFilename: array[0..255] of Char;
  DropPoint: TPoint;
begin
  if Msg.Message = WM_DROPFILES then
  begin
    FileIndex := $FFFF;
    QtyDroppedFiles := DragQueryFile(Msg.WParam,
                                     FileIndex,
                                     pDroppedFilename,
                                     BufferLength);

    for FileIndex := 0 to (QtyDroppedFiles - 1) do
    begin
      DragQueryFile(Msg.WParam, FileIndex, pDroppedFilename, BufferLength);
      DroppedFilename := StrPas(pDroppedFilename);
      DropPoint := Msg.pt;

      // Hier werden zwei Edit Boxen definiert
      if IsDropPointInside(DropPoint, Edit1) then
        Edit1.Text := DroppedFilename
      else
      if IsDropPointInside(DropPoint, Edit2) then
        Edit2.Text := DroppedFilename;
      end;

    DragFinish(Msg.WParam);
    Handled := true;
  end;
end;

function TForm1.IsDropPointInside(const aDropPoint: TPoint; const aControl: TControl): Boolean;
begin
  Result := PtInRect(aControl.ClientRect,
            aControl.ScreenToClient(aDropPoint));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Hier werden die Komponenten angegeben
  DragAcceptFiles(Edit1.Handle, true);
  DragAcceptFiles(Edit2.Handle, true);

  Application.OnMessage := AppMessage;
end;