ketemu lagi, hehehe. kali ini kita akan ngebahas tentang properties pada Delphi?? Apaan tuh?? Seperti yang telah diceritakan di Pengenalan Delphi, Properties merupakan obyek bantu dalam Delphi. Gimana ya ngejelasinnya?? agak susah (g berbakat jadi guru neh). Gini deh. Misal aku punya sebuah Button neh. Lha, aku pengen ganti tulisan di Button itu. Maka yang kita tuju adalah Properties-Caption. Atau ingin mengubah warna, maka kita berseluncur ke Properties-Color. Atau Font, maka ke Properties-Font. Pokoknya gitu deh, hehehe.Nah, ntar kita akan mencoba buat aplikasi yang bisa ngatur-ngatur properties. Tap karena ini contoh, cuman beberapa aja yang aku tampilin, selanjutnya Anda lah penentunya. lets Begin,
1. Baca Basmallah,
2. Buka Delphi,
3. Buat sebuah project baru, dan save. (masih ingetkan caranya),
4. Atur komponen seperti gambar berikut :
5. Tambahkan Skrip berikut pada :
- Form1, event onCreate (Event onCreate ada di Object Inspector, Event. Sampingnya Properties. Lalu double click onCreate), dan isikan skrip berikut :
- Pada eKata, event onChange,
- Pada rbMerah, event onClick,
- Pada rbBiru, event onClcik,
- Pada rbHitam, event onClick,
- Pada rbBold, event on CLick,
- Pada rbItalic, event on CLick,
6. Dan hasilnya adalah sebagai berikut,
7. ALhamdulillah,
8. Hore . . . .
9. terima kasih. Sampai jumpa . . .
1. Baca Basmallah,
2. Buka Delphi,
3. Buat sebuah project baru, dan save. (masih ingetkan caranya),
4. Atur komponen seperti gambar berikut :
5. Tambahkan Skrip berikut pada :
- Form1, event onCreate (Event onCreate ada di Object Inspector, Event. Sampingnya Properties. Lalu double click onCreate), dan isikan skrip berikut :
begin
// catatan, bahwa tanda '//' berarti tidak termasuk di dalam skrip,
//mengosongkan eKata dan lKata,
eKata.Text :='';
lKata.Caption := '';
//membuat warna lKata menjadi Hitam,
lKata.Font.Color := clBlack;
//agar sewaktu aplikasi dibuka, Warna Hitam terpilih,
rbHitam.Checked := true;
end;
- Pada eKata, event onChange,
//agar yang kita ketik di eKata, tertulis di lKata
lKata.Caption := eKata.Text;
- Pada rbMerah, event onClick,
if rbMerah.Checked = true then
lKata.Font.Color := clRed;
- Pada rbBiru, event onClcik,
if rbBiru.Checked = true then
lKata.Font.Color := clBlue;
- Pada rbHitam, event onClick,
if rbHitam.Checked = true then
lKata.Font.Color := clBlack;
- Pada rbBold, event on CLick,
if rbBold.Checked= true then
lKata.Font.Style := [fsBold];
- Pada rbItalic, event on CLick,
- Pada rbUnderline, event on CLick,if rbItalic.Checked= true then
lKata.Font.Style := [fsItalic];
if rbBUnderline.Checked= true then
lKata.Font.Style := [fsUnderline];
6. Dan hasilnya adalah sebagai berikut,
7. ALhamdulillah,
8. Hore . . . .
9. terima kasih. Sampai jumpa . . .