Select Page

Pada artikel sebelumnya, kita bisa melakukan drag & drop object yang berada di dalam program. Sekarang, bagaimana membuat program dengan kemampuan drag & drop yang object nya berasal dari luar?

Artikel ini membahas cara membuat drag & drop file melaui Windows Explorer menggunakan Lazarus Free Pascal. Program berikut akan membuka file teks yang ditarik melalui Windows Explorer dan membukanya pada komponen TMemo.

Pertama, Siapkan Form dan Memo. Kemudian, pada Form aktifkan properti AllowDropFiles.

Form1.AllowDropFiles := true;

Langkah kedua masih pada Form, gunakan event onDropFiles.

procedure TForm1.FormDropFiles(Sender: TObject; const FileNames: array of string
  );
begin
  if ExtracTFileExt(Filenames[0]) = 'TXT' then
  begin
    Memo1.Clear;
    Memo1.Lines.LoadFromFile(Filenames[0]);
  end
  else
    ApplicatIon.Messagebox('File type should be text or .TXT', 'MessageBoxDemo', MB_ICONWARNING);
end;

Sangat mudah bukan membuat program GUI dengan kemampuan drag & drop. Lebih mudahnya, kamu bisa unduh contoh program drag & drop file melalui explorer disini.