form uzerindeki edit renkleri

[grassular]

selam arkadaşlar;
Şimdiden herkese çok teşekkur ediyorum,
bir form üzerindeki tum editlerin rengini aynı anda nasıl değiştirebilirm,

saygılar

[kara_kule06]

Bu işini görür. Edit nesnelerinin rengini kımızı yapıyor.

Kod: Tümünü seç

procedure TForm1.RenkDegistirClick(Sender: TObject);
var
i:integer;
begin

  for i:=0 to self.ControlCount-1 do
  Begin
   if self.Controls[i] is TEdit then
    Begin
      TEdit(self.Controls[i]).Color:=clRed;
    End;
  End;
end;

[ikutluay]

selam arkadaşlar;
Şimdiden herkese çok teşekkur ediyorum,
bir form üzerindeki tum editlerin rengini aynı anda nasıl değiştirebilirm,

saygılar

arkadaşın örneğine birey demiyorum ama comboboxlar, checkboxlar vs ne olacak.

eger derdiniz calısma anında renk değiştimerkse bu yöntemi diğerleri içinde uygulayın... 3.parti componentleride unutmayın.

[csunguray]

Inheritance (Kalıtım) neden icat edilmiş? Elbette bu işler için. Bu bahsettiğiniz componentlerin hepsi zaten birer TControl dür. Kodumuzu şöyle değiştirelim.

Kod: Tümünü seç

procedure TForm1.RenkDegistirClick(Sender: TObject);
var
  Sayac:Integer;
begin
  for Sayac:=0 to ControlCount-1 do
  begin
    Controls[Sayac].Color:=clRed;
  end;
end;

Yalnız burada GroupBox Panel gibi nesnelerin de rengi değişecektir. Ona dikkat etmek lazım.

[grassular]

teşekkurler arkadaşlar cevaplar için,sayenizde hallettim

[kara_kule06]

Inheritance (Kalıtım) neden icat edilmiş? Elbette bu işler için. Bu bahsettiğiniz componentlerin hepsi zaten birer TControl dür. Kodumuzu şöyle değiştirelim.

hocam senin dediğinde ne kadar control varsa onun rengini değiştiriyor. ama grassular sadece editlerin rengini sormuştu. Yani kodu değiştirmene gerek yok.

[ikutluay]

Inheritance (Kalıtım) neden icat edilmiş? Elbette bu işler için. Bu bahsettiğiniz componentlerin hepsi zaten birer TControl dür. Kodumuzu şöyle değiştirelim.

hocam senin dediğinde ne kadar control varsa onun rengini değiştiriyor. ama grassular sadece editlerin rengini sormuştu. Yani kodu değiştirmene gerek yok.

csunguray ın verdiği cevap benim eklentim içindi. form üzerinde edit der teditleri düzenlerseniz, checkbox, combox vs tum diğer componentler (ama bunlarda edit sonuçta) renk değişmeden duracaktır. ben buna diikat edince devreye inheritance girdi.