mevcut panelden yeni paneller turetme

[oyle]

Merhabalar,
form uzerine bir panel ekledim. panel ustunde de label buton ve bikac kontrol var. benim yapmak istedigim. form uzerinde ki bir butona tiklayinca
bu panel den istedigim kadar bir kopya olusturup yanyana dizmek.
İyi calismalar.

[sabanakman]

Bunun yerine Frame tasarla panel içine bu frame lerden oluşturarak çoğaltabilirsiniz.

[oyle]

Öncelikle tsk.ederim ilginize.
Aşağıdaki gibi yazdim kodu. hata vermedi ama yeni frame lerde olusturmadi ekrana.

Kod: Tümünü seç

procedure framecogalt(id:integer);
var
frm:tframe2;
begin
  Inc(id);
  frm := tframe2.Create(panel2);
  With frm do
  begin
    Name      := Format('Form_%.3d', [id]);
    Visible   := True;
    Left      := id + 100;
    Tag       := id;
    color     := clred;
  end;
end;

[CiTiZEN]

merhabalar, parent atayıp denermisiniz birde.

[oyle]

teşekkür ederim CITIZEN parent ekleyince calisti.

[oyle]

Tekrar Merhaba,
Daha önce Türetme işlemini yapmıştım. simdide nasil bu turettiklerimi yok edebilirim acaba?

Aşağıdaki kodla yok edebiliyorum ama birer atlayarak yok ediyor. Türetmiş oldugum 10 tane frame varsa
1-3-5-7-9 seklinde yok ediyor.

Kod: Tümünü seç

    for k:=0 to panel2.ComponentCount-1 do begin
      if (panel2.Components[k].ClassName='TFrame2') then
         begin
           tframe2(panel2.Components[k]).Destroy;
         end;
     end;

[sabanakman]

listeden elemanlar yok edildiklerinde sonraki elemanlar bir öne kaymaktadır ve siz de bu kaymayı ihmal ederseniz bu durumu yaşarsınız.

Kod: Tümünü seç

while panel2.ComponentCount>0 do panel2.Components[0].Free;

[oyle]

hmm anladim. Teşekkür ederim sabanakman