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

Mengubah Properties Komponen Secara Masal di Delphi #163

satu juta itu memiliki enam digit nol

andrypein.net : Jika dipikir-pikir buat apa ya? tapi semua terserah programmer nya dong, semau dia mau merubah properties suatu komponen secara satu persatu atau masal melalui koding.

Kalau masal melalui koding mau tidak mau semua komponen yang berhubungan akan sama properties nya, kalau satu persatu ya masing-masing komponen memiliki properties sendiri-sendiri.

Sebagai contoh kita sekarang akan mengubah properties komponen Label

properties komponen
form jadi

 

Step nya form cobacoba ini kita pasang 7 buah label, lalu termin ‘masal’ ini berarti ketujuh label tersebut akan memiliki properties yang sama.

Yang akan kita ubah dari properties label tersebut adalah warna, hurup, ukuran, dan style nya sebagai sample.

Lanjut pada sedikit koding nya, beri event pada form dengan event OnShow dan ketikan rumus ini :

procedure TForm1.FormShow(Sender: TObject);
var
 i : integer;
begin
 with form1 do
  begin
   for I := 0 to ControlCount-1 do
    begin
     if Controls[i] is TLabel then
      begin
       TLabel(Controls[i]).Font.Color:=clblue;
       TLabel(Controls[i]).Font.Style:=[fsBold];
       TLabel(Controls[i]).Font.Name:='Comic Sans MS';
       TLabel(Controls[i]).Font.Size:=10;
      end;
    end;
  end;
end;
Done, dengan begini ke 7 label tersebut akan memiliki properties komponen yang sama.

Download

*AFK

 

Related Articles

Tinggalkan Balasan

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

Back to top button