Mengubah Properties Komponen Secara Masal di Delphi #163

satu juta itu memiliki enam digit nol

Andry Fadrie K April 16, 2012

0 288 1 minute read

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

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;