Mengubah Posisi Teks Di List Box Di Delphi

Assalamualaikum Temen Temen semua, Salam Semangat Di Senin Siang ini/(^.^”) ( wah kesiangan kayaknya nich \(^.^”) *temen khayalan ) *hehehehe iya nich kesiangan.

Nah Pada Siang hari ini saya mau kembali berbagi materiPembelajaran Delphi nich Temen Temen, Dimana untuk hari ini kita akan melanjutkan seri terakhir dariProject TListBox yang sudah kita pelajari sebelum sebelumnya. Kalau kemarin Kemarin kita sudah BelajarMemasukkan Teks, Menyisipkan Teks, DanMenghapus Teks Pada Listbox. Hari ini kita akan berbagi mengenai bagaimana cara mengubah posisi Teks pada listboxberdasarkan 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 menggunakancomponent 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 kembalibutton Down / Up karena kita belum membahas mengenai pembatasan Urutan Tersebut

Berikut ini adalah source Codenya :

 _______________________________________________________________________________

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.

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 tinggaldownload dibawah ini ya.

Download – Materi 15 Mengubah posisi teks pada List Box

Tetap Simak terus Personal Blog 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.