Delphi – Menghapus teks di List Box

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 boxakan 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 :

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 kedalam list  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 padalistbox.

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

Download – Materi 14 Menghapus Teks Pada List Box

 

sumber