Component XXX ise Şunu Yap Nasıl Uygulanır?

[R.K.]

İyi çalışmalar arkadaşlar. Aslında biçok yerde cevabı geçiyor ama nasıl arayıp sonuca ulaşacağımı tam olarak bilemedim. Forumun offline dosyasıda bilgisayarımda kayıtlı ama arama kriterlerime göre çok fazla kayıt dönüyor. Sorum ise şu:
groupbox kontrolün içinde checkbox ve başka kontroller var diyelim.
groupbox1.componentcount ile bunların sayısını alıyorum burda da sorun yok. Sonra bir döngü ile bu componentleri kontrol edicem ve bunlar chechboz ise checked özelliğini false yapıcam.

Kod: Tümünü seç

procedure TfrmMain.Button1Click(Sender: TObject);
var i :integer;
begin
  i:=0;
  while not GroupBox1.ComponentCount<=0 do
    begin
      if (GroupBox1.Components[i] is TCheckBox) then
        begin
                   [b]???????[/b]
        end;
    end;
end;

İşte soru işareti olan yerlere nasıl bişeyler yazıcam onu bulamadım. Bir de is ve as anahtar kelimelerinin kullanımıyla ilgili bilgilere nasıl ulaşırım. Bu anahtar kelimelerin kullanıldığı işlemlerin püf noktaları nelerdir, ikisinin arasındaki kullanım farkları nelerdir...? Cevaplarınız için şimdiden çok teşekkürler...

[Battosai]

Kod: Tümünü seç

for i:=0 to gbox.controlcount-1 do 
  Begin 
    if  gbox.controls[i] is TCheckBox then
        TCheckBox(gbox.controls[i]).checked:=True;
  End;

[emin_as]

is midir anlamına gelir ve true veya false değer döndürür.
as gibidir anlamına gelir ve Sender as TButton dersen senderi Tbutton mış gibi kullanabilirsin.

if sender is TButton then // sender TButton nesnesinden türetilmiş bir nesneyse true döndürür

with sender as Tbutton do Caption:='Tıkla' ; // Button ın captionu tıkla olarak degiştirilir.

As in kullanımı:
http://www.delphibasics.co.uk/RTL.asp?Name=As

Is in kullanımı:
http://www.delphibasics.co.uk/RTL.asp?Name=Is