Cara Membuat Animasi Loading di RAD Studio Embarcadero Delphi

Loading dalam bahasa indonesia adalah memuat, yang berarti memuat data. Loading dapat menjadi acuan untuk menggambarkan proses pemuatan data yang dilakukan oleh aplikasi.

Animasi loading dapat menjadi pemanis melengkapi program yang dibuat.

Setiap bahasa program pasti ada cara untuk membuat animasi loading, salah satunya adalah delphi, lalu bagaimana caranya?

kali ini saya menggunakan RAD Studio Embarcadero.

Caranya sebagai berikut :

1. Buat project baru

2. Simpan project tersebut

3. Tambah file di bawah ini di dalam folder tersebut
https://www.mediafire.com/file/b59fw3nndtgn1x6/Loading.pas/file

4. Buat tombol untuk mencoba animasi loadingnya

5. Tambahkan baris kode di bawah ini pada event on click.

Loading.Show(Form1, 'Loading...');

  TThread.CreateAnonymousThread(procedure
  begin
    sleep(5000);

    TThread.Synchronize(nil, procedure
    begin
     TLoading.Hide;
    end);

  end).Start;

6. Silahkan di modifikasi sesuai dengan keinginan kamu,

Download source codenya di sini

Share :