Pages

Labels

Pages - Menu

Diberdayakan oleh Blogger.

Selasa, 07 Mei 2013

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 :
1procedure TForm1.FormCreate(Sender: TObject);
2begin
3 
4edit_add.Text:='';
5 
6end;
Pada Saat Program Dijalankan maka Edit Box akan dikosongkan
1procedure TForm1.button_addClick(Sender: TObject);
2begin
3 
4listbox1.Items.Add(edit_add.Text);
5edit_add.Text:='';
6edit_add.SetFocus;
7 
8end;
Pada Saat Button add diklik maka teks pada edit box akan dimasukkan kedalam list  box.
1procedure TForm1.button_insertClick(Sender: TObject);
2begin
3 
4listbox1.Items.Insert(listbox1.ItemIndex, edit_add.Text);
5 
6end;
Jika Button Insert Di Klik maka teks pada edit box akan disisipkan diatas Teks yang dipilih / disorot padalistbox.
1procedure TForm1.button_deleteClick(Sender: TObject);
2begin
3 
4listbox1.DeleteSelected;
5 
6end;
Jika Button Delete di hapus maka akan menghapus teks yang dipilih / disorot pada list box.
1procedure TForm1.button_exitClick(Sender: TObject);
2begin
3 
4close;
5 
6end;
Jika Button Exit Di Klik makan akan keluar dari program
Nah Berikut ini hasil program aat dijalankan
 

0 komentar:

Posting Komentar

 

Calendar

Ada kesalahan di dalam gadget ini

visitor

Flag Counter