Runtime da Istenilen Sayıda EditBox oluşturma

[ozsal]

s.a Kolay Gelsin Arkadaslar.
Daha önce Yazdığım Konu ile alakalı (Randevu Kontrol) bir noktada takıldım.

Program Çalışırken;
Kullanıcı 10 dk . aralık girerse;

checkbox saat açıklama
*checkbox1 9:00-9:10 editbox1
*checkbox2 9:10-9:20 editbox2
...
.
.
.
.
gibi
demek istediğim bu aralık kullanıcı secimli. bende her saat dilimine özel bir checkbox ve editbox oluşturmak istiyorum. bunu yapmak mümkün mü acaba?
İlgilenen arkadaslara şimdidien teşekkürler.

[unicorn64]

bu şekilde ayrı ayrı elemanlar kullanmak yerine string grid tarzı bi yapı kullansan. TMS grid pack de advstringgrid mesela. bu gridde istediğin sütunlara checkbox da ekleyebiliyorsun.

ama illa standart elemanlarla yapcam dersen şöyle bişi hazırladım bi incele kendine göre ayarlarsın....

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
checkdizi:array of TCheckBox;
labeldizi: array of TLabel;
editdizi:array of Tedit;
i:integer;
sol,ust:integer;
begin
  setlength(checkdizi,5);
  setlength(labeldizi,5);
  setlength(editdizi,5);
  for i:=0 to 4 do
  begin
    checkdizi[i]:=TCheckBox.Create(nil);
    editdizi[i]:=TEdit.Create(nil);
    labeldizi[i]:=TLabel.Create(nil);
    checkdizi[i].Parent:=self;
    editdizi[i].Parent:=self;
    labeldizi[i].Parent:=self;
  end;

  ust:=Button1.Top+Button1.Height+15;
  sol:=Button1.Left;
  for i:=0 to 4 do
  begin
    checkdizi[i].Top:=ust;
    labeldizi[i].Top:=ust;
    editdizi[i].Top:=ust;
    checkdizi[i].Left:=sol;
    labeldizi[i].Left:=checkdizi[i].Left+checkdizi[i].Width+15;
    editdizi[i].Left:=labeldizi[i].Left+labeldizi[i].Width+15;
    labeldizi[i].Caption:='label'+inttostr(i);
    ust:=ust+checkdizi[i].Height+5;
  end;
end;