Menghapus Teks Di List Box Di Delphi

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 tekspada 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 akandisisipkan 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 :

1	procedure TForm1.FormCreate(Sender: TObject);

2

begin

3

4	edit_add.Text:='';

5

6

end;

Pada Saat Program Dijalankan maka Edit Box akan dikosongkan

1	procedure TForm1.button_addClick(Sender: TObject);

2

begin

3

4	listbox1.Items.Add(edit_add.Text);

5	edit_add.Text:='';

6	edit_add.SetFocus;

7

8

end;

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

1	procedure TForm1.button_insertClick(Sender: TObject);

2

begin

3

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

5

6

end;

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

1	procedure TForm1.button_deleteClick(Sender: TObject);

2

begin

3

4	listbox1.DeleteSelected;

5

6

end;

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

1	procedure TForm1.button_exitClick(Sender: TObject);

2

begin

3

4

close;

5

6

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 Catatan 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.