Dinamik edit kutusu oluşturma

[mehmet3807]

Herkese merhabalar,
Mesleki amaçla kullanmak için matematiksel bir işlemi delphi 7 de küçük bir program yazdım programın özü alan hesabı ve bu hesapta kullanılacak edit kutularının sayısı alanın geometrisine göre değişiyor, alanı hesaplanacak şeklin geometrisine göre edit sayısını sonsuz yapıp belirtilen sayıda edit kutusunu ekranda gösterme işlemini nasıl yapabilirim?
Şimdiden teşekkürler..

[mehmetantalya]

Kod: Tümünü seç

Var
 a :tedit;
begin
    a:= TEdit.Create(self);
    a.Height := 23;
    a.Width := 100;
    a.Left := 10;  
    a.parent:=self;
end;

Tabi işiniz bitince free etmeyi unutmatin.

Kod: Tümünü seç

a.free

şeklinde. Bu şekilde ekrana dinamik olarak edit olusturabilirsiniz.

Aşağıfaki örnekle de coklu oluşturabilirsin. Örnekte ben 99999 adet edit bilesenini oluşturdum.

Kod: Tümünü seç

var
 j: integer;
 edtisim: array [1..99999] of TEdit;
begin
 for j:=1 to 99999 do begin
    edtisim[j]:= TEdit.Create(self);
    edtisim[j].Height := 23;
    edtisim[j].Width := 100;
    edtisim[j].Left := 70 * j;      
    edtisim[j].Parent := self;      
end;
end;