Delphi � Mengubah Posisi teks di List Box

Assalamualaikum Temen Temen semua, Salam Semangat

Nah Pada Siang hari ini saya mau kembali berbagi materi Pembelajaran Delphi nich Temen Temen, Dimana untuk hari ini kita akan melanjutkan seri terakhir dari Project TListBox yang sudah kita pelajari sebelum sebelumnya. Kalau kemarin Kemarin kita sudah Belajar Memasukkan Teks, Menyisipkan Teks, Dan Menghapus Teks Pada Listbox. Hari ini kita akan berbagi mengenai bagaimana cara mengubah posisi Teks pada listbox berdasarkan Index Urutan dari Teks Tersebut. Materi Kali  ini Tetep Simple dan Gampang Dech Monggo Disimak ya.

Bagaimana ya jika kita sudah memasukkan teks ke dalam list box kemudian kepengan posisinya diubah yang tadinya dibawah menjadi diatas dan yang tadinya diatas menjadi dibawah. *hmmmm gampang kok ternyata masih menggunakan component LIstbox yang sudah kita pernah gunakan dimateri sebelumnya kita akan meneruskannya dengan materi baru yakni mengubah posisi teks pada list Box Langsung aja kita bahas ya :

• Pertama Tama Temen temen bisa buat Form Designnya sebagai berikut ( atau bisa menggunakan form sebelumnya tinggal menambahkan beberapa buttonnya  aja ).

• Kemudian Atur Propertiesnya Sebagai Berikut :

Nah Berikut ini Alur Programnya :

• Pada Listbox kita bisa memilih teks yang ingin di ubah posisinya dengan mengklik teks pada list box tersebut.
• Jika Button Up Di Klik Maka Otomatis Teks akan naik satu tingkat dari posisi sekarang.
• Jika Button Down Di Klik Maka otomoatis Teks akan turun satu tingkat dari posisi sekarang
• Note : jika sudah berada di atas / dipaling bawah jangan klik kembali button Down / Up karena kita belum membahas mengenai pembatasan Urutan Tersebut

Berikut ini adalah source Codenya :

 _______________________________________________________________________________

1 2 3 4 5 6 7 8 9

procedure Tform_materi15.button_upClick(Sender: TObject); var   posisi_lama : integer; begin   posisi_lama := listbox1.ItemIndex;   listbox1.Items.Move(posisi_lama, posisi_lama - 1);   listbox1.ItemIndex:=posisi_lama -1; end;

Jika Button UP Di Klik maka posisi teks yang disorot akan naik satu tingkat ke atasnya.

1 2 3 4 5 6 7 8 9

procedure Tform_materi15.button_downClick(Sender: TObject); var   posisi_lama : integer; begin   posisi_lama := listbox1.ItemIndex;   listbox1.Items.Move(posisi_lama, posisi_lama + 1);   listbox1.ItemIndex:=posisi_lama +1; end;

Jika Button Down Di Klik maka posisi teks yang disorot akan Turun satu tingkat ke Bawahnya.

_______________________________________________________________________________

Nah Berikut ini adalah Hasil Program Saat Dijalankan d(^.^�).

  

Nah akhirnya selesai juga materi kita kali ini, Aduh maaf saya sederhanakan list kodenya karena saya kesiangan dan ambil waktu menulis kali ini di jam istirahat siang. *hehehehe udah ngantuk bener mau istirahat sebetar sebelum Jam istirahat Berakhir, Untuk Temen Temen yang mau check langsung applikasi projeknya tinggal download dibawah ini ya.

Download � Materi 15 Mengubah posisi teks pada List Box

Tetap Simak terus informatika-team temen temen semua, kita akan terus berbagi untuk materi materi tutorial pemprograman Delphi dan juga tips tips menarik lainnya tentunya dalam pembelajaran computer /(^.^�). Salam Semangat Di Minggu Ini Temen Temen Semua, Sampai Jumpa di Pertemuan Selanjutnya.

Salam

Tweet