Membuat slide show di delphi

Membuat slide show tanpa menggunakan componen khusus ( picshow ).
Disini saya menggunakan komponen Timer, DbImage, dan Tpanel. Disini kita akan menampilkan 4gambar saja. Gambar tersimpan di database sehingga setiap saat bisa di rubah gambarnya.

Sediakan 4 timer, semua timer isikan 5000. Timer 1 enabled=true dan timer yang lain enabled=false. Klik 2x ditimer 1 dan isikan kode berikut

Dbimage1.visible:=true;
Dbimage2.visible:=false;
Dbimage3.visible:=false;
Dbimage4.visible:=false;

Timer1.enabled:=false;
Timer2.enabled:=true;
Timer3.enabled:=false;
Timer4.enabled:=false;

Klik 2xTimer2

Dbimage1.visible:=false;
Dbimage2.visible:=true;
Dbimage3.visible:=false;
Dbimage4.visible:=false;

Timer1.enabled:=false;
Timer2.enabled:=false;
Timer3.enabled:=true;
Timer4.enabled:=false;

Klik 2x Timer3

Dbimage1.visible:=false;
Dbimage2.visible:=false;
Dbimage3.visible:=true;
Dbimage4.visible:=false;

Timer1.enabled:=false;
Timer2.enabled:=false;
Timer3.enabled:=false;
Timer4.enabled:=true;

Klik 2x timer 4
Dbimage1.visible:=true;
Dbimage2.visible:=false;
Dbimage3.visible:=false;
Dbimage4.visible:=true;

Timer1.enabled:=true;
Timer2.enabled:=false;
Timer3.enabled:=false;
Timer4.enabled:=false;

Ini logikanya, untuk tampilan disesuaikan masing2. Semoga bermanfaat.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s