Shape Nesnesi

Yapmak istediğiniz işle ilgili doğru bileşeni bulmak için burayı kullanabilirsiniz. Sadece bulmak için, diğer sorular Programlama forumuna lütfen.
Forum kuralları
Bu forum sadece yapacağınız işle alakalı doğru bileşeni bulmak içindir. Şöyle bir şey yapmam lazım, hangi bileşeni kullanıyım diyorsanız, doğru yerdesiniz.
Cevapla
bymerag
Üye
Mesajlar: 18
Kayıt: 15 Mar 2008 10:57

Shape Nesnesi

Mesaj gönderen bymerag » 03 Ağu 2017 04:11

Kolay Gelsin Arkadaşlar
Basit bi program yaptımda formda 1296 adet shape var ben bunların pen rengini tek butonla colorboxtan seçtiğim renk olarak atamak istiyorum.

Kod: Tümünü seç

Shape1.Pen.Color:=ColorBox1.Selected;
dediğimde sıkıntı yok ama 1296 defa bunu yazmak yerine daha basit bir yolu varmı acaba

Teşekkür Ederim.

Kullanıcı avatarı
hi_selamlar
Üye
Mesajlar: 521
Kayıt: 05 May 2005 02:24
Konum: DelphiTürkiye.COM

Re: Shape Nesnesi

Mesaj gönderen hi_selamlar » 04 Ağu 2017 01:37

Merhabalar,

Bir kaç arama ile bulunabilecek basit bir işlem aslında.

Kod: Tümünü seç

var
i:integer;
begin

        for i:=0 to ComponentCount-1 do
        begin
                if Components[i] is TShape then
                        TShape(Components[i]).Brush.Color:=clRed;
        end;
Herkes cahildir, bazi konularda.

bymerag
Üye
Mesajlar: 18
Kayıt: 15 Mar 2008 10:57

Re: Shape Nesnesi

Mesaj gönderen bymerag » 15 Ağu 2017 11:55

Teşekkür Ederim hocam Sağolun

Bir sorum daha olacak.
Shape Nesnesin bulunduğu noktanın rengini almasını istiyorum.Ne yapablirim.
Örnek bir image1 nesnem var buna ekli fotoğraf var.fotoğrafın üstünde shape nesneleri var.istiyorumki resmin üstündeki shape nesnesi bulunduğu alanın rengini alsın.

Teşekkür Ederim.

Cevapla