Delphi ile Birden fazla nesneyi kontrol etmek
|Birden fazla nesneyi kontrol etmek için her nesne için ayrı ayrı kod yazmak yerine bir kaç satır kodla işleminizi kolayca halledebilirsiniz.|
Formunuzda birden fazla SpeedButton olduğunu varsayalım.Bu nesnelerin özelliklerine göre bir işlem yaptırmak veya bu nesnelerin hepsine aynı anda müdahele etmek için nesnenin bağlı olduğu sınıf kullanılır.
Örnek1
Speedbutton ların hepsini visible yapmak için
For i:=0 to componentcount- 1 do
Begin
If components[i] is Tspeedbutton then
Tspeedbutton(components[i]).visible:=false;
End;
Form üzerindeki eleman sayısı (ComponentCount) alınarak for döngüsü içerisinde bütün elemanların Speedbutton olup olmadığı kontrolü yapılır.Bu koşulu sağlayan elemanların yani SpeedButton ların visible özelliği false yapılır.,
Örnek2
Form üzerinde 29 Speedbutton var ve hepsinin caption değişkenlerine sırasıyla alfabenin harfleri atanmış olsun.Form üzerinde bulunan Label1 in caption değişkenine Speedbutton ların caption değişkeni atanacak(OnClick).
Bütün Speedbutton ların teker teker Onclick olayını yazmaktansa sadece bir tanesinin(mesela SpeedButton1) Onclick olayına aşağıdaki kod yazılıp geri kalan bütün speedbutton ların OnClick olayı SpeedButton1 in Onclick olayına bağlanırsa yapılmak istenen işlem tek satır ile halledilmiş olur.
Procedure TspeedButton1.OnClick(Sender: Tobject);
Begin
Label1.caption:=TspeedButton(Sender).caption;
End;
Bu kod ile TspeedButton sınıfına ait üzerinde işlem yapılan(Sender) nesnenin caption değişkeni Label1 in caption değişkenine atanır.
Not: Bu kodları diğer elemanlar içinde rahatlıkla kullanabilirsiniz.
ERDEM ÇER