Delphi – Mengubah Posisi teks di List Box

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

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 :

 _______________________________________________________________________________

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

Download – Materi 15 Mengubah posisi teks pada List Box

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

Salam

Eko

_______________________________________________________________________________

Simak Juga Materi Materi Menarik Lainnya nich d(^o^)  :

–          Delphi – Menghapus teks di List Box

–          Delphi – Menambahkan Teks ke List Box

–          Delphi – Membuat Loading Progress

_______________________________________________________________________________

3 thoughts on “Delphi – Mengubah Posisi teks di List Box

  1. Ping-balik: Delphi – Membuat Message Box « Catatan Eko

  2. Ping-balik: Delphi – Menggunakan Input Box « Catatan Eko

  3. Ping-balik: Delphi – Lopping Input Box « Catatan Eko

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s