Delphi – Menambahkan Teks ke List Box

• Pertama Tama Buat Design Form Sebagai Berikut

• Atur Properties Namenya Sebagai Berikut :

Nah Berikut Alur Programnya :

• Edit Box tempat mengetikkan teks yang ingin dimasukkan ke dalam ListBox.
• JIka Button Add Di Klik maka Teks yang ada pada edit Box akan di Masukkan ke dalam Listbox kemudian Edit Box bersih dan setfocus untuk teks selanjutnya.
• Jika Button Exit Di Klik maka akan keluar dari program.

Nah Berikut Listing Source Codenya :

1 2 3 4 5 6

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

pada saat Form Di jalankan makan teks pada edit box akan dibersihkan /(^.^”).

1 2 3 4 5 6 7 8

procedure Tform_materi12.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 box akan dimasukkan pada List Box kemudian Edit Box kosong dan setfocus kembali untuk teks berikutnya.

1 2 3 4 5 6

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

Nah saat Button Exit DI klik maka akan keluar dari program.

Nah Berikut ini hasil Program Saat di jalankan /(^.^”) :

sekarang mau kasih tips juga untuk temen temen yang mau copy paste code program di atas bisa klik icon yang ada pada source codenya – perhatikan gambar dibawah ini.

Setelah dikilk nanti akan mencul note dari web browser temen temen yang bisa temen temen lakukan untuk pengcopyan source codenya.kilk disini