Tüm SpeedButtonlar Flat True olsun?

[NewMember]

Arkadaşlar.MDI(Ana Formum) bir formdan verilecek bir komutla ana form ve bütün child formlardaki SpeedButtonların Flat özelliğini true yapabilirmiyiz.Yani kullanıcıya seçim şansı tanımak istiyorum da.Naıl bir döngü ile bunu yapabiliriz?İyi akşamlar.

[vedatkaba]

Açık olan MDI child formlardaki bileşenlere müdehale edebilirsin açık olmayana da edersin ama formun create edilmiş olması lazım.Derleyici yok şu anda ama daha önce formlarla ilgili bir soruya bir makaleyle cevap vermiştim.arama yaparak bulabilirsin .MDI child formların sayısı kada rbir döngü aç ve her döngüden sonra o mdichild formda mevcut olan ,

Kod: Tümünü seç

sender as Tspeedbutton,

ise flat =ture yap gibi.
,
,,kolay gelsin

[NewMember]

Ya kusura bakmayın.Biraz soruyu anlatamadım galiba.Child formları unutun.Ben hepsinin create yordamına yazarım aynı kofu.Bana şu kod lazım.Tek tek

Kod: Tümünü seç

SpeedButton1.flat:=True

yazmıycam da bir komutla formun üzerinde ne kadar speedbutton varsa Flat true olacak.Bunun kodunu biliyorsanız yazarsanız sevinirim.Sağolun .Kolay gelsin.

[vedatkaba]

Kod: Tümünü seç

for n:=1 to componentcount-1 do 
begin 
  if components[n] is TSpeedButton then 
  begin 
    (components[n] as TspeedButton).flat:=true; //  
  end; 
end; 

Kolay gelsin.

[NewMember]

Çalıştı.Teşekkürler

[vedatkaba]

Bende teşekkür ederim baştan söleseydin böle olduğunu neyse çözdük ya

[ozkanagiral]

Kod: Tümünü seç

function TumBilesenOzelliklerineEris(Component:TComponent):Integer;
var i:Integer;
begin
  if Component is TSpeedButton then TSpeedButton(Component).Flat:= True; 
  Result:=1;
  for i:=0 to Component.ComponentCount-1 do
   Result:=Result+TumBilesenOzelliklerineEris(Component.Components[i]);
end;

Selam, sorunu okuduktan sonra bu kodu mevcut çalıştığım projemde hemen yazıp denedim sonuç istediğin gibi.

fonksiyonu çağırmak için

Kod: Tümünü seç

procedure TFrmAnaKARINCA.ActSpButonlariFlatYapExecute(Sender: TObject);
begin
TumBilesenOzelliklerineEris(Application)
//Buraya Applicationu yazarsan tüm uygulamayı etkiler....
end;

Kolay Gelsin.

[ozkanagiral]

İyiki de hemen yazmışım... Demek kiiii hemen yazman önemli değil önemli olan hemen göndermen ))

[NewMember]

Ozkanagiral.Çok Teşekkürler.Hepinize çok teşekkürler.