nesne yaratımı ve matris

[lyon]

Merhaba;

yaptığım program şu şekilde:

edit nesnesi içine kullanıcı, diyelim ki 3 yazdı...
program label ve checbox nesneleri yaratıyor ve aşağıdaki gibi bir görünüm oluşuyor...

1.label____1.checkbox____2.checkbox

2.label____3.checkbox____4.checkbox

3.label____5.checkbox____6.checkbox

şimdi; bu nesnelerin isimleri(.name) atanırken ben şöyle bir görüntüye ulaşmalıyım:

1.label____checkbox1-2____checkbox1-3

2.label____checkbox2-3____checkbox2-1

3.label____checkbox3-1____checkbox3-2

yani isimler atanırken label ve checkboxların bir nevi 3X3 matris oluşturmaları gerekiyor... tabi bu kullanıcının programın en başında edit içine yazdığı rakama göre değişecek... 4X4, 5X5 vs gibi... çok uğraştım ama yapamadım, yardımcı olursanız sevinirim...

[lyon]

kendim sordum kendim cevaplayayım:) deneye deneye buldum, kodları da yazayım tam olsun:

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
i:=strtoint(edit1.text);
C:=1;
b:=0;
d:=0;
e:=1;
f:=100;


for a := 1 to (i) do
begin
hazneadi:=tlabel.create(self);
hazneadi.Parent:=self;
hazneadi.Top:=150+d;
hazneadi.Left:=60;
hazneadi.height:=13;
hazneadi.Width:=31;
hazneadi.caption:=inttostr(c)+'.Hazne';
hazneadi.name:='hazneadi'+inttostr(c);

c:=c+1;
b:=b+100;
d:=d+40;
f:=100;
e:=0;
for a := 1 to i do
begin
e:=e+1;
if c=(e+1) then
gereksiz:=gereksiz+1
else
begin
hbaglanti:=tcheckbox.create(Self);
hbaglanti.parent:=self;
hbaglanti.Top:=hazneadi.top;
hbaglanti.left:=hazneadi.left+f;
hbaglanti.Height:=17;
hbaglanti.Width:=97;
hbaglanti.caption:=hazneadi.caption+inttostr(e);
hbaglanti.name:='hazne'+inttostr(c-1)+'den'+inttostr(e);
f:=f+100;



end
end


end

end;

[conari]

Paylaştığın için teşekkürler.