Başlangıç > Kodlar > Delphi ile Birden fazla nesneyi kontrol etmek

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.

Birden Fazla Nesneyi Kontrol Etmek

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


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: