Delphi Drop Files Components

http://mh-nexus.de/components.htm
下載並安裝 Misc component package
使用 TDropFiles 來讀取一個文字檔
在 Form 上放入 TMemo 和 TDropFiles 元件
在 DropFiles1 加入 Target 屬性為 Memo1
在 DropFiles1 加入 ondropFiles 事件

procedure TForm1.DropFiles1DropFiles(Sender: TObject; Files: TStrings; X,
  Y: Integer);
var
  FileName: string;
begin
  FileName :=  Files[0];
  if FileExists(FileName) then begin
    Memo1.Lines.LoadFromFile(FileName);
  end;
end;

執行程式後，可拖曳檔案總管中所列的文字檔
到程式 Memo 中