Delphi – Menghapus teks di List Box

Assalamualaikum Temen Temen Semua, Salam Semangat Di Minggu Pagi ini /(^.^”) ( Semangkaaa – semangat kaka (^o^”) *sabahat khayalan ) halah kau ini muncul melulu /(^.^”).

Nah Hari ini kita akan kembali belajar Materi Materi Delphi lagi nih. Masih tetap dengan seri lanjutan .materi sebelumnya yakni mengenai List Box d(^.^”) . Kalau kita sudah membahas memasukkan dan menyisipkan teks pada List Box sekarang kita coba untuk menghapus Teks Pada List Box. ( aku siap aku siap aku siap (^.^) (/^o^)/ *sahabat khayalan ) *hehehe materi ini simple sekali namun sangat bermanfaat dalam pengetahuan kita masalah Delphi Nah Monggo Disimak ya.

Nah Bagaimana sih cara menghapus teks yang sudah kita masukkan atau sudah kita sisipkan ke dalam List Box. Tentunya tidak jauh berbeda dengan yang sebelumnya kok, nah untuk mempermudah pengerjaan temen temen bisa menggunakan projek yang sebelumnya sudah dipakai yakni menambahkan teks ke List Box dan Menyisipkan Teks Ke List Box tinggal tambahkan button delete untuk materi ini. Yah kalau mau memperlancar juga bisa buat kembali dari ulang tentunya mencoba code tambah dan insert yang sebelumnya sudah dibahas, langsung aja kita bahas.

  • Pertama tama Temen temen Bisa Atur Design Form nya sebagai berikut ( untuk mempermudah gunakan materi sebelumnya ) :
  • Kemudian Atur Properties Namenya Sebagai Berikut :

Nah barikut Alur Programnya :

  • Edit Box tempat mengetikkan teks dan jika button Add di klik maka teks yang terdapat di edit box akan dimasukkan ke List Box ( materi sebelumnya ).
  • Pada list box kita bisa menyorot kata kata yang ada didalamnya, dengan mengklik teks tersebut.
  • Kemudian Bila Button Insert Di Klik Maka Teks yang ada di Edit Box akan disisipkan diatas Teks yang kita sorot. ( materi sebelumnya )
  • Bila Button Delete di Klik maka Teks yang kita pilih atau sorot sebelumnya akan Terhapus.
  • Jika Button Exit DI Klik Maka akan keluar dari program

Nah Berikut ini adalah Source Codenya :

procedure TForm1.FormCreate(Sender: TObject);
begin

edit_add.Text:='';

end;

Pada Saat Program Dijalankan maka Edit Box akan dikosongkan

procedure TForm1.button_addClick(Sender: TObject);
begin

listbox1.Items.Add(edit_add.Text);
edit_add.Text:='';
edit_add.SetFocus;

end;

Pada Saat Button add diklik maka teks pada edit box akan dimasukkan kedalam list  box.

procedure TForm1.button_insertClick(Sender: TObject);
begin

listbox1.Items.Insert(listbox1.ItemIndex, edit_add.Text);

end;

Jika Button Insert Di Klik maka teks pada edit box akan disisipkan diatas Teks yang dipilih / disorot pada listbox.

procedure TForm1.button_deleteClick(Sender: TObject);
begin

listbox1.DeleteSelected;

end;

Jika Button Delete di hapus maka akan menghapus teks yang dipilih / disorot pada list box.

procedure TForm1.button_exitClick(Sender: TObject);
begin

close;

end;

Jika Button Exit Di Klik makan akan keluar dari program /(^.^”).

Nah Berikut ini hasil program aat dijalankan d(^.^”).

Nah Selesai Sudah Materi kita kali ini, cepet ya /(^.^”) soalnya kita mau jalan jalan di akhir pekan jadi materinya sederhana aja *hehehehe. Nah Untuk temen temen yang mau cek langsung projeknya monggo bisa di download di link dibawah ini ya d(^.^”).

Download – Materi 14 Menghapus 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 – Menyisipkan Teks Ke List Box

–          Delphi – Menambahkan Teks ke List Box

–          Delphi – Membuat Loading Progress

_______________________________________________________________________________

2 thoughts on “Delphi – Menghapus teks di List Box

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

  2. Ping-balik: Delphi – Menggunakan 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