Author Topic: Control Array In Delphi  (Read 6105 times)

0 Members and 1 Guest are viewing this topic.

Offline 3LACKC0DE

  • Bibit IF
  • *
  • Posts: 20
  • Reputasi: 1
Control Array In Delphi
« on: 17 December 2007, 16:30:46 »
Bawaan dari site lama nihhh...... ;D ;D ;D

Code :
Code: [Select]
var
  Form1: TForm1;
  //Deklarasi var arr sebagai array of checkbox, harus di deklarasi variable yang global
  arr: Array[1..10] of TCheckBox;

procedure TForm1.FormCreate(Sender: TObject);
var
  i,a,CtlTop : integer;
begin
  CtlTop:=8;
  //looping sebanyak 10x untuk membuat 10 control checkbox
  for i:=1 to 10 do
  begin
    //membuat control checkbox
    arr[i]:=TCheckBox.Create(Self);
    arr[i].parent:=Self;

    //menentukan posisi top dari control checkbox baru yang akan dibuat
    CtlTop:=CtlTop+24;
    arr[i].Top:=CtlTop;

    //set caption checkbox yang baru
    arr[i].Caption :='Checkbox' + IntToStr(i);
  end;
end;


Download :
Code: [Select]
http://www.box.net/shared/ux147ru0vn
« Last Edit: 17 December 2007, 16:35:13 by 3LACKC0DE »

Forum Informatika

Control Array In Delphi
« on: 17 December 2007, 16:30:46 »
Sponsored Links:


Offline ram4builder

  • Numpang Lewat
  • *
  • Posts: 2
  • Reputasi: 0
Re: Control Array In Delphi
« Reply #1 on: 02 September 2009, 20:55:07 »
maaf, bukan mo nambahin,. cuma mo nanya ama ahli delphi,...
delphi ama borland dan turbo sama kah,... truess,. mo nya seputar turbo c++ ke mana dan siapa yah, Mr.3LACKCODE,..?

newbie pda programming, cuma tahu C/C++ dikit,..dasarnya lagi,.. pingin ngenbangin ,... tolong lah bantuannya,..

terimakasih