Delphi � Menyisipkan teks ke List Box

Assalamualaikum Temen Temen Semua,

Nah hari ini kita akan belajar  nich, Ngelanjutin Materi sebelumnya yakni Menambahkan Teks Ke List Box , narh hari ini kita akan membahas bagaimana Menyisipkan teks Ke List Box  /(^.^�). Gampang Dan pokoke gak kalah seru dengan materi sebelum *halah kaya film laga. Nah Monggo Di Simak Temen Temen Semua.

Nah seperti materi sebelumnya component yang akan kita gunakan adalah List Box, Dimana dalam Component ini kita bisa menambahkan, menyisipkan, menghapus bahkan mengatur posisi teks didalamnya. Hari ini kita mencoba yang menyisipkan teks ke dalam List Box. Temen Temen bisa mempergunakan Projek Materi sebelumnya tinggal menambahkan beberapa button aja, atau kalau mau melancarkan diri bisa membuatnya ulang tentunya sekalian melatih materi sebelumnya yakni menambahkan teks ke list box, Langsung aja yukksss.

• Pertama Temen Temen Bisa Atur Design Form Sebagai Berikut ( untuk mempermudah gunakan materi sebelumnya ) :

 

• Kemudian atur Properties namenya sebagai berkut :

Nah Berikut 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.
• Jika Button Exit DI Klik Maka akan keluar dari program

_______________________________________________________________________________

Nah Berikut ini adalah Source Codenya :

1 2 3 4 5 6

procedure TForm1.FormCreate(Sender: TObject); begin   edit_add.Text:=''; end;

Pada Saat Form Create Aktif maka edit teks dikosongkan.

1 2 3 4 5 6 7 8

procedure TForm1.button_addClick(Sender: TObject); begin   listbox1.Items.Add(edit_add.Text);   edit_add.Text:='';   edit_add.SetFocus; end;

Jika Button Add Di Klik Maka Teks yang berada pada Edit Text akan dimasukkan Ke dalam List Box, Setelah itu Edit Teks Bersih dan set focus untuk teks berikutnya.

1 2 3 4 5 6

procedure TForm1.button_insertClick(Sender: TObject); begin   listbox1.Items.Insert(listbox1.ItemIndex, edit_add.Text); end;

Jika Button Insert di klik maka Teks yang ada di edit text akan disisipkan diatas teks yang kita pilih posisinya atau yang kita blok / sorot di listbox.

1 2 3 4 5 6

procedure TForm1.button_exitClick(Sender: TObject); begin   close; end;

Jika Button Exit Di Klik maka akan keluar dari program.

_______________________________________________________________________________

Nah Berikut ini hasil program Saat dijalankan d(^.^�).

Nah Selesailah Materi Kita Pagi Hari ini *cape Juga /(^.^�) �( walah terima kasih banyak d(^.^�) nah sekarang selamat weekend ya mas *sahabat khayalan ) halah kau bisa aja. Nah buat temen temen yang mau download Project � Materi Menyisipkan Teks ke List Box Monggo Di Link Dibawah ini ya .

Download � Materi13-Menyisipkan_teks_listbox

Tetap Simak Terus Catatan Informatika Personal Blog Kawan, Untuk Tutorial Tutorial Menarik lainnya. Hmmm untuk materi baru selain Program Delphi sedang disiapkan /(^o^�). Wah Sudah waktunya berakhir pekan, Baiklah Salam Semangat Temen Temen Semua, Sampai jumpa di pertemuan berikutnya :

Thanks & Regards

Tweet