Penggunaan Properties dalam Delphi #19

andrypein.net : Posting kali ini hanya untuk memantapkan rekan semua mengenai Object Inspector dan penggunaan properties dalam delphi yang merupakan keinginan kita dalam pengembangan aplikasi yang kita inginkan.

Dalam object Inspector ini terdapat kumpulan keinginan (in programming) yang akan kita atur baik itu properties component nya atau event2 yang kita inginkan dalam komponen tersebut.

Latihan kali ini amat sangat sederhana banget sekali ya ma’lum namanya juga latihan,urusan pengembangan tergantung imajinasi kita saja,ini hanya gambaran saja ➡

oke langsung bentuk formnya seperti ini :

 

langsung pada object inspector dengan form1 dalam keadaan aktif,pilih event OnCreate dobelklik.

sengaja tak diatur manual jadi atur formnya pake script gtu loh 😀 😀
lalu kita ketikan listing pada form1 on create tersebut dengan kode berikut:

Procedure TForm1.FormCreate(Sender: TObject);
begin
 form1.caption:='ukuran form semula';
 button1.caption:='form besar';
 button2.caption:='form awal';
 button3.caption:='ubah warna';
 edit1.text:='';
 label1.caption:='testes';
 radiobutton1.Visible:=false; 
 radiobutton2.Visible:=false;
 radiobutton3.Visible:=false;
 radiobutton4.Visible:=false;
 radiobutton5.Visible:=false;
 button2.Enabled:=false;
 radiobutton1.caption:='merah';
 radiobutton2.caption:='kuning';
 radiobutton3.caption:='hijau';
 radiobutton4.caption:='biru';
 radiobutton5.caption:='default';
end;

enabled = false berarti komponen yang dimaksud tidak aktif dalam arti enabled adalah mengaktifkan atau menonaktifkan
visible = false artinya komponen yang dimaksud tidak nampak saat form tercipta dalam arti visible adalah menampakan atau tidak

kemudian pada button1 listingnya kaya gini

Procedure TForm1.Button1Click(Sender: TObject);
begin
 form1.width:=350;
 form1.height:=450;
 edit1.text:='ukuran form menjadi 350 x 450';
 form1.caption:='ukuran form berubah';
 button2.enabled:=true;
 button1.enabled:=false;
end;

dan pada button2

Procedure TForm1.Button2Click(Sender: TObject);
begin
 form1.width:=300;
 form1.height:=200;
 edit1.text:='ukuran form menjadi seperti semula';
 form1.caption:='ukuran form semula';
 button1.enabled:=true;
 button2.enabled:=false;
end;

terakhir pada button3 kita ketikan

procedure TForm1.Button3Click(Sender: TObject);
begin
 if messageDlg('ubah warna form?',mtInformation,[mbYes,MbNo],0) = mrYes then 
  radiobutton1.Visible:=true;
  radiobutton2.Visible:=true;
  radiobutton3.Visible:=true;
  radiobutton4.Visible:=true;
  radiobutton5.Visible:=true;
end;

terakhir banget beri event click pada masing-masing radiobutton seperti ini:

//untuk radiobutton1
form1.color:=clred;
//radiobutton2
form1.color:=clyellow;
//radiobutton3
form1.color:=clgreen;
//radiobutton4
form1.color:=clblue;
//radiobutton5
form1.color:=clBtnFace;

Terakhir, compile run
contoh diatas hanya sedikit gambaran mengenai event dan properties,
programmer sejati silahkan kembangkan dengan imajinasi yang lain oke?

Sip, sekian artikel penggunaan properties dalam delphi kali ini, semoga bermanfaat.

(*AFK)