Genel İşlemler - Butonlara renk atama

Sayfayı Yazdır | Pencereyi Kapat

Butonlara renk atama

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=547
Tarih: 07 Ocak 2025 Saat 23:48
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: Butonlara renk atama

Mesajı Yazan: halilselvitopu
Konu: Butonlara renk atama
Mesaj Tarihi: 03 Ağustos 2023 Saat 15:54

https://i.hizliresim.com/9r0tsrh.png" rel="nofollow - 9r0tsrh.png (1221×791) (hizliresim.com)
Bu kısımda Türkiye olan butona tıkladığımda butona Türkiye bayrağını getiriyorum. Başka bir ülkeye tıkladığımda bunu eski boş haline getirebiliyorum bu kısımda sorun yok fakat bunu her butona yeni bir prosedürle atamak yerine bir ülkeye bastığımda kalan butonları eski haline kısa yoldan nasıl getirebilirim. Bu şekilde olması halinde 10000 karakter sınırını bir hayli aşıyor. Bunun bir yolu varsa açıklayabilir misiniz?

Cevaplar:

Mesajı Yazan: Alforce
Mesaj Tarihi: 03 Ağustos 2023 Saat 16:06

Eğer ardışık isimlere sahipler ise çok basit!

Örnek kod:

Var
  i: Integer;
Begin
  For i:= 1 to 5 do
    TclProButton(MyForm.clFindComponent('Btn'+IntToStr(i))).Visible:= False;
  ...

Bu But1 den But5 e kadarki bütün probutonların görünürlüğünü kapatır.

Mesajı Yazan: halilselvitopu
Mesaj Tarihi: 03 Ağustos 2023 Saat 16:17

Visible'ını kapatmak istemiyorum buton görünmeli fakat içindeki bayrak olmamalı. Bir butona bastığımda o kutucuktaki bayrak gözükecek diğerlerinin içi boş olacak. Butonun prosedüründe tıklanınca btn2'deki bayrağın arka planını kaldır 3'tekini kaldır şeklinde tek tek yazmak istemiyorum tek seferde yapabilir miyim diye sordum. Sadece tıkladığım butonun bayrağı görünmeli.

Mesajı Yazan: Alforce
Mesaj Tarihi: 03 Ağustos 2023 Saat 16:21

Bu örnek kod, kendinize göre modifiye edin.

Mesajı Yazan: Alforce
Mesaj Tarihi: 03 Ağustos 2023 Saat 18:13

Burda nesnelere nasıl erişiceğimizi gösterdim.

Eğer oluştururken isim kısmına But1, But2, But3 şekilinde ardışık isimler verirseniz daha kolay olur.

Erişmek için ise örnek kodda verdiğim "TclProButton(MyForm.clFindComponent('Btn'+IntToStr(i)))" kodunu kullanın. Bunu tek başına bir buton olarak düşünün.