Jannah Theme License is not validated, Go to the theme options page to validate the license, You need a single license for each domain name.
DelphiPemrograman

Penggunaan Shape di Delphi #61

Paramore itu vokalisnya cewe

andrypein.net : Kali ini akan menjelaskan penggunaan komponen shape di delphi program nyubitolnya berupa apps yang bisa mengganti shape dan merubah warnanya dengan menggunakan colorcombobox, kedua komponen berada pada palette additional.

penampakannya kaya gini gan:
untuk shape

shape

untuk colorcombobox

color combo box

kita akan membuat program nyubitol yang seperti ini penampakannya :

form

Bentuk sedemikian rupa,persis ga persis gapapa.
jadi yang dibutuhkannya yaitu:

Lalu pada listboxnya di properties object inspector beri item 6 buah.

Dengan meng klik kotak kecil nya dan pada editornya masukan list ininya:

string list editor

Setelah semua disiapkan saatnya memberi listing pada komponen listbox dan combocolornya.
untuk listbox beri event click dan listingnya seperti ini:

procedure TForm1.listbox1click(Sender: TObject);
begin
 case listbox1.ItemIndex of
  0: shape1.shape:=stSquare;
  1: shape1.shape:=stCircle;
  2: shape1.shape:=stEllipse;
  3: shape1.shape:=stRectangle;
  4: shape1.shape:=stRoundSquare;
  5: shape1.shape:=stRoundRect;
end;

dan untuk combocolor beri event onchange.

procedure TForm1.ColorboxChange(Sender: TObject);
begin
  shape1.Brush.Color:=colorbox1.selected;
end;

lalu coba run oleh rekan2 semua dan penampakan akhirnya seperti ini:

hasil akhir
oke dah selesai juga postingan shape di delphi semoga bermanfaat.

*AFK

Related Articles

4 Comments

  1. tau gak buat program pembalik kata pada delphi?? kalo tau caranya bisa dikasih tau gak???

    terima kasih atas jawabannya……

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Back to top button