Tab Additional II

Download

I.             Deskripsi Program

Program ini berfungsi untuk menampilkan shape yang dapat diubah bentuknyanya dan warnanya melalui bitbtn1. bentuknya dapat diubah menjadi kotak atau pun bulat, dan untuk warnanya juga dapat diubah sesuai yang disediakan pada colorbox1.

Ketika program dijalankan maka kita akan masuk pagecontol yang pertama yang kita harus memilih karakteristik bentuk ataupun warna. Kedua karakteristik ini terdapat pada combobox1 dan colorbox1. Lalu setelah selesai tekan ok, maka kita akan melihat hasilnya pada pagecontrol yang selanjutnya. Pada Pagecontol tersebut juga terdapat speedbutton untuk keluar dari program.

                             

II.          Interface Program

III.        Coding Program

Nama Komponen	Event	Perintah
Bitbtn	onclick	procedure TForm1.BitBtn1Click(Sender: TObject); begin if combobox1.ItemIndex = 0 then shape1.Shape := stCircle else if combobox1.ItemIndex = 1 then shape1.Shape := stsquare; Shape1.Brush.Color := ColorBox1.Selected; end;
Speedbutton1	onclick	procedure TForm1.SpeedButton1Click(Sender: TObject); begin  if messagedlg('Terimakasih !',mtInformation,[mbok],0)=mrok then  application.Terminate; end;