Delphi – Animasi Tampilan Teks

• Pertama tama temn temen bisa buat design form sebagai berikut :

• Aturlah Properties Namenya sebagai Berikut :

Nau untuk alur programnya adalah sebagai berikut :

• Saat program dijalankan teks akan muncul secara bergantian berdasarkan interval waktu timer. Dengan muneggunakan fungsi visible true atau false.
• Jika button keluar di klik maka akan muncuk kotak konfirmasi keluar, jika dipilih ok maka akan keluar dari program.

_______________________________________________________________________________

Berikut ini adalah listing codenya :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

procedure Tform_materi29.Timer1Timer(Sender: TObject); begin     if label1.Visible=false then     begin       label1.Visible:=true;     end   else if label2.Visible=false then     begin       label2.Visible:=true;     end   else if label3.Visible=false then     begin       label3.Visible:=true;     end   else if label3.Visible=true then     begin       label1.Visible:=false;       label2.Visible:=false;       label3.Visible:=false;     end;   end;

kode diatas merupkan suatu pengkondisian saja dimana jika label1 visible false maka akan true agar muncul dan terlihat dan dalam selang waktu beberapa detik akan lanjut pada code berikutnya yakni memunculkan teks lainnya. begitu sterusnya hingga diakhir jika sudah muncul semua kita kembalikan ke kondisi awal untuk visible false semuanya.

1 2 3 4 5 6 7 8 9

procedure Tform_materi29.button_keluarClick(Sender: TObject); begin     if(application.MessageBox('Yakin akan keluar dari program','Konfirmasi',MB_YesNo)=ID_Yes)then     begin       close;     end;   end;

jika button keluar di klik maka akan muncul konfirmasi box untuk meyakinkan akan keluar atau tidak, jika ya maka program akan di close;

_______________________________________________________________________________

Nah dibawah ini adalah hasil tampilan programnya :

Nah itulah tips yang bisa saya sampaikan pada pagi hari ini dengan tema Animasi Tampilan Teks. Sangat mudah dan sederhana tapi sangat membantu dalam pembuatan program kreasi kita nanti d(^.^”).

klik disini