yaratılan nesnelari denetlemek

[lyon]

merhaba;

programda kullanıcının istediği sayıda checkbox yaratıldıktan sonra, yarattığım checkbox'ların checked olup olmadığına göre program devam edecek... yalnız yaratılan checkbox sayısını kullanıcı belirleyeceği için checked özelliğini denetleyemiyorum... yardımcı olursanız sevinirim.

saygılarımla...

[ibrahimcoban]

is ve as operatörleriyle bunu yapabilirsin.
is ile sınama, as ile de istediğin özelliğe ulaşabilirsin.

Yada tlist oluşturup bunları tlist'e ekleyip burdan kontrol edebilirsin.

[lyon]

tlist de yapmaya çalıştım, yaratılan checkboxlar'ın bir listesi oluştu ancak haliyle "string" olarak oluşuyor yani checked özelliğini denetleyemiyorum:roll:

as ve is operatörlerinin kullanımını bilmiyorum

[ibrahimcoban]

şunun gibi birşey...

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
temp :TComponent;
begin

for i:=0 to ComponentCount-1 do
  begin
   temp :=Components[i];
   if (temp is TCheckBox) then
    begin
      if (temp as TCheckBox).Checked then ShowMessage('seçilmiş')
      else ShowMessage('seçilmemiş');
    end;
  end;

end;

[lyon]

yardımın için çok teşekkür ederim:)

[vkamadan]

@ibrahimcoban ın örneğine ilave bilgi olarak,
daha kısa yazmak isterseniz aynı kodu şöylede yazabilirsiniz,

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject); 
var 
i : integer; 
begin 

for i:=0 to ComponentCount-1 do 
  begin 
   
   if (Components[i] is TCheckBox) then 
    begin 
      if TCheckBox(Components[i]).Checked then ShowMessage('seçilmiş') 
      else ShowMessage('seçilmemiş'); 
    end; 
  end; 
end;

kolay gelsin.