Arsip: Tedit Array

const
GridTop=25;
GridLeft=15;
VSpace=20;
HSpace=100;
Gap=25;

Var
.....
NOpertama, NoKedua, NoKetiga:array [0..3] of TEdit;

procedure TForm1.FormCreate(Sender: TObject);
var
b1:byte;
begin
for b1:=0 to 3 do begin
NOPertama[b1]:=TEdit.Create(Self);
NoKedua[b1]:=TEdit.Create(Self);
NoKetiga[b1]:=TEdit.Create(Self);
NOPertama[b1].parent:=Self;
NoKedua[b1].parent:=Self;
NoKetiga[b1].parent:=Self;
NOPertama[b1].top:=GridTop;
NoKedua[b1].top:=GridTop+Gap+VSpace;
NoKetiga[b1].top:=GridTop+2(VSpace+Gap);
Nopertama[b1].left:=GridLeft+b1 (HSpace+Gap);
NoKedua[b1].left:=GridLeft+b1(HSpace+Gap);
NoKetiga[b1].left:=GridLeft+b1 (HSpace+Gap);
NOPertama[b1].width:=HSpace;
NoKedua[b1].width:=HSpace;
NoKetiga[b1].width:=HSpace;
NOPertama[b1].height:=VSpace;
NoKedua[b1].height:=VSpace;
NoKetiga[b1].height:=VSpace;
NOPertama[b1].show;
NoKedua[b1].show;
NoKetiga[b1].show;
NOPertama[b1].enabled:=True;
NoKedua[b1].enabled:=True;
NoKetiga[b1].enabled:=true;
NOPertama[b1].text:='DelphiExpert';
NoKedua[b1].text:='Delogic';
NoKetiga[b1].text:='LuriDarmawan';
end;
end;
end.