Delphi – Menyisipkan teks ke List Box

Assalamualaikum Temen Temen Semua, Salam Semangat untuk weekend ini /(^.^”). *huftt lagi gak semangat nich – ( Yah semangat dunk mas eko, kan aku mau belajar lagi \(^.^”) *sahabat  khayalan ) *issshhhh kau ini, iya iya baiklah *\(^o^)/* jiayooooo.

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 :

procedure TForm1.FormCreate(Sender: TObject);
begin

  edit_add.Text:='';

end;

Pada Saat Form Create Aktif maka edit teks dikosongkan.

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.

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.

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 mas eko 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 CatatanEko 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

Eko

_______________________________________________________________________________

Simak Juga Materi Materi Menarik Lainnya nich d(^o^)  :

–          Delphi – Menambahkan Teks ke List Box

–          Delphi – Membuat Loading Progress

–          Delphi – Membuat Teks Berjalan

_______________________________________________________________________________

3 thoughts on “Delphi – Menyisipkan teks ke List Box

  1. Ping-balik: Delphi – Menghapus teks di List Box « Catatan Eko

  2. Ping-balik: Delphi – Membuat Message Box « Catatan Eko

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