Delphi – Menambahkan Teks ke List Box

Assalamualaikum Temen Temen Semua, Salam Semangat untuk Hari ini nich /(^.^”) temen temen semua. *hmmmm hari ini mo nulis apa ya (-,-“)???. ( Delphi Delphi Delphi mas eko *\(^0^)/* – sorak parasahabat maya ) waduhhhh /(^o^) iya iya iya baiklah *hehehehe.

Nah Hari ini kita bahas Materi Delphi Lagi yukss – Permintaan khusus dari sahabat maya *fufufufu. Materi apa yang akan kita coba hari ini, tentunya melanjutkan materi materi yang sudah pernah kita bahas nich dengan tema yang gak kalah seru  (n_n). Baiklah kita post ringan aja dech Di Jum’at pagi ini – Kita akan mencoba memasukkan Teks Kedalam ListBox *hehehehe Monggo Disimak ya.

Nah komponen yang kita pelajar kali ini yakni penggunaan ListBox, dimana temen temen bisa temukan component ini pada tabs standard. Kita bisa menambahkan, Mengyisipkan, mengurangi, mengatur posisi dalam Dalam Komponent List Box. Nah kali ini kita akan mencoba memasukkan teks kedalam listbox, /(^.^”) untuk menyisipkan, mengurangi dan mengatur posisi teks mungkin kita bahas di sesi selanjutnya *hehehehe biar gak telat ngantor *fufufufu, Langsung aja ya :

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

procedure Tform_materi12.FormCreate(Sender: TObject);
begin

  edit_add.Text:='';

end;

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

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.

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 /(^.^”) :

Nah Selesai Sudah Materi Kali ini *hehehehe (  wah mas eko kok gampil ya (^o^) *hehehehe komentar sahabat ) Itulah – Belajar Delphi Emang Gampang kan, Tentunya dunk *hehehehe. 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. Kalau yang mau liat langsung aplikasi Project Delphinya monggo di download dibawah ini.

Download Materi 12 – MEnambahkan Teks Ke List Box

Nah Sampai Jumpa Di Materi materi Delphi Selanjutnya Temen Temen semua. Sudah Saat nya menjalani Rutinitas Hari ini, Salam Semangat Di Jumat Pagi ini.

Thanks & Regards

Eko

_______________________________________________________________________________

Simak Juga Artikel Menarik lainnya ya \(^o^”) :

–          Delphi – Membuat Loading Progress

–          Delphi – Membuat Teks Berjalan

–          Mengubah Warna Component Form Pada Delphi 7

_______________________________________________________________________________