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 :
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 /(^.^”) :
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.
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
0 komentar:
Posting Komentar