panel icerisinde ki tum speedbuttonlari free etmek

[frost majere]

Kod: Tümünü seç

for i:=Panel1.ControlCount-1 downto 0 do begin
    if Panel1.ClassType=TSpeedButton then begin
      if Panel1.Controls[i].Name<>'Pointnum' then begin
        Panel1.Controls[i].Destroy;
      end;
    end;
  end;

panel1 icerisinde ki tum speedbuttonlari yukarida ki kod ile yok etmeye calisiyorum fakat beceremedim. yardimci olursaniz sevinirim.

[aslangeri]

s.a.

Kod: Tümünü seç

if (panel.controls[i] is tspeedbutton) then freeandnil(panel.controls[i]);

kodunuzun böyle birşey olması lazım.
birde dikkat etmeniz gereken nokta for döngüsünü

Kod: Tümünü seç

controlcount-1 downto 0 

şeklinde yapmanız gerekmektedir.
çünkü kontrollerden birini sildiğinizi controls de değişecektir. buda arada silmediğiniz speedbuttonlar olabilir demek.
kolay gelsin.

[sabanakman]

Kodlar normal görünüyor.

... yukarida ki kod ile yok etmeye calisiyorum fakat beceremedim...

Bu kadar mı? Olmayanın ne olduğunu daha açık yazabilirsen iyi olur. Bu aralar sihirli küremi kaybettim de

[frost majere]

Kod: Tümünü seç

for i:=Panel1.ControlCount-1 downto 0 do begin
    if (panel1.controls[i] is tspeedbutton) then begin
      if Panel1.Controls[i].Name<>'Pointnum' then begin
        Panel1.Controls[i].Destroy;
      end;
    end;
  end;

$eklinde cozdum. yardimariniz icin tesekkurler.

[ikutluay]

s.a.

Kod: Tümünü seç

birde dikkat etmeniz gereken nokta for döngüsünü 
[code]controlcount-1 downto 0 

şeklinde yapmanız gerekmektedir.
çünkü kontrollerden birini sildiğinizi controls de değişecektir. buda arada silmediğiniz speedbuttonlar olabilir demek.
kolay gelsin.

bu güzel bir bilgiydi. genelde tersini yapıyoruz çünkü