Tutorial Cara Membuat Fitur Drag Drop Files dengan Lazarus Free Pascal


 Program pengolahan berbasis file eksternal sebagai bagian dari proses seperti copy file, upload file, umumnya memiliki kemampuan drag and drop files. Selain terlihat keren, fitur drag drop files memudahkan pengguna menggunakan program tersebut.

Bagi programmer Pascal, pada artikel ini mengulas bagaimana cara membuat fitur drag drop files dengan mudah. Lazarus Free Pascal sudah menyiapkan kemampuan drag drop file pada properti TForm. Kita tinggal temukan AllowDropFiles dan beri centang true.

Langkah selanjutnya agar fitur drag drop files bekerja, kita cukup menambahkan beberapa baris perintah untuk mengarahkan file yang di drag untuk masuk ke lokasi tertentu setelah di drop pada event OnDropFiles.

Contoh program dengan fitur drag drop files bisa kamu unduh disini. Penjelasan contoh program ini bisa kamu lihat pada video dibawah. Semoga bermanfaat.




Comments

Post a Comment

Popular posts from this blog

Cara Membuat Program Tulisan Berjalan atau Running Text Menggunakan Lazarus Free Pascal

Image
  Tulisan berjalan, sering disebut running text banyak digunakan untuk memberikan informasi berita, harga produk dan lain-lain supaya publik yang melihat dapat mengetahuinya. Artikel tutorial pemrograman Lazarus Free Pascal tentang cara membuat program tulisan berjalan atau running text. Program ini sangat mudah dibuat dengan memanfaatkan komponen TTimer yang akan memroses prosedur berulang ketika di enabled. procedure TForm1.Timer1Timer(Sender: TObject); begin     //Move label     Label1.Left:= Label1.Left + MovingStep; //Minus MovingStep will move to left     if not cbRotate.Checked then     begin         if (Label1.Left+label1.Width) < 0 then             Timer1.Enabled:= false         else         if Label1.Left > Width then         Timer1.Enabled:= false;         end ...
Read more

Cara Menambahkan Komponen Visual secara Runtime dengan Lazarus Free Pascal

Image
  Ada alasan beberapa program membutuhkan penambahan komponen visual secara runtime. Maksudnya pengguna dapat menambahkan komponen ketika program itu sedang dijalankan. Pada artikel ini mengulas bagaimana kita bisa membuat TButton dan TEDit secara runtime. Dibawah memperlihatkan contoh membuat sebuah tombol secara runtime. Pastikan kamu juga menginisialisasi properti yang diperlukan agar terlihat normal ketika ditampilkan. procedure TForm1.FormCreate(Sender: TObject); var   BtnSum: TButton; begin   // Createa button to add numbers   BtnSum := TButton.Create(Self);   BtnSum.Parent := Self;   BtnSum.Caption := 'Sum All';   BtnSum.Left := Button1.Left;   BtnSum.Top := Button1.top + Button1.Height + 16;   BtnSum.Height:= 31;   BtnSum.Width:= 200;   Bt...
Read more

Membuat Program Music First Player dengan Lazarus Free Pascal

Image
 Program ini dibuat untuk kamu yang lagi suka mendengarkan musik atau lagu tertentu. Program di-set untuk dijalankan ketika Windows melakukan startup atau komputer dihidupkan dan Music First Player langsung memainkan file mp3 yang telah disiapkan. Program MP3 player ini hanya menjalankan sebuah file mp3 kemudian program ditutup setelah musik selesai diputar. Karena program ini memang sengaja dibuat hanya akan menjalankan sebuah file musik dan kamu melanjutkan aktifitas komputer lainnya. Program MP3 Music First player menggunakan unit MMSystem untuk menjalankan file multimedia seperti file MP3. Tertarik mencoba Music First Player? Silahkan unduh program exe nya atau source code yang bisa kamu modifikasi disini . Satu lagi, lihat vieo dibawah untuk penjelasan cara kerja program ini.
Read more