Tambah dan Hapus Item pada ListBox Delphi

Komponen:

1. Edit (Tab Standard)

2. Button1 dan Button2 (Tab Standard)

3. ListBox (Tab Standard)

Properties:

1. Edit1 (Hapus kata Edit1 pada Properties Text)

2. Button1 (Ubah Properties Caption menjadi “Tambahkan“)

3. Button2 (Ubah Properties Caption menjadi “Hapus“)

Desain Form seperti gambar berikut:

ListBoxButtonEdit1

Masukkan kode program berikut pada Button1 (“Tambahkan“):

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Add(Edit1.Text);
end;

Dan masukkan kode program berikut pada Button2 (“Hapus“):

procedure TForm1.Button2Click(Sender: TObject);
begin
  ListBox1.DeleteSelected;
end;

Jalankan program dan ketikkan kata atau kalimat pada Edit1 lalu klik tombol “Tambahkan“, ulangi hingga beberapa kali. Hapus Item yang dipilih dengan klik tombol “Hapus“. Hasilnya seperti gambar dibawah ini.

ListBoxButtonEdit2

Download Source Code disini.

Iklan

, , , , , , , ,

  1. Tinggalkan komentar

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: