component count formshow olayında girmiyo...!

[doctorfunks]

sa !
Formshow olayında aşağıdaki gibi bir döngüm var, fakat program çalıştırdığımda, formu açtığım zaman buraya girmiyo. Üzerindeki bileşenlerde pagecontrol ve cx bileşenleri mevcut. İyi çalışmalar...

for W_I := 0 to ComponentCount - 1 do
begin
if (Components[W_I] is TEdit) then
with (Components[W_I] as TEdit) do
begin
Color := clWhite;
Ctl3D := W_Ctl3D;
Text := '';
end;
end;//for

(burada sadece Tedit tipi için var, hepsini yazmak istemedim.problem buraya girmemesi)

[sabanakman]

Bu bileşenleri kullanmadım ama buraya for döngüsü öncesi showmessage ile kotrol amaçlı bir mesaj yaz. Eğer mesaj gelmiyorsa Formun onShow olayında bir arıza vardır. Mesaj geliyorsa bu bileşen sınıfları TEdit üzerinden türemiyordur. Hatta büyük ihtimalle TEdit yerine TCustomEdit kullanarak yaparsan çalışabilir. (Bu bileşenler TCustomEdit'ten türüyorsa.)
ilk testini

Kod: Tümünü seç

for W_I := 0 to ComponentCount - 1 do 
begin 
if (Components[W_I] is TCustomEdit) then 
with (Components[W_I] as TEdit) do 
begin 
Color := clWhite; 
Ctl3D := W_Ctl3D; 
Text := ''; 
end; 
end;

şeklinde yap.

[doctorfunks]

onları zaten denedim, o söylediklerinizle alakası yok hocam... tipik delphi vakası, başka bir formda dizayn edip aynı source ile denediğimde herşey düzgün...

[rsimsek]

Belki de OnShow un içindekileri kopyalayıp sildikten sonra, kontrol/check project ile uçmasını sağla daha sonra tekrar OnShow a kopyaladıklarını yapıştırıp dene.. Bazen yordam olduğu halde class da olmayabiliyor

[doctorfunks]

sa !
hata tekrarladı malesef, kodu inceleyince hatanın döngüdeki W_I değişkenine atadığım değerden kaynaklandığını anladım, shortint tanımladığım için , component count'da 135 çıkıyo dolayısıyla....
iyi çalışmalar....






"Ne irfandır ahlaka yükseklik veren, ne vicdandır.Fazilet hissi insanlarda Allah korkusundandır."

[rsimsek]

İndisi integer mı tanımladınız

[sabanakman]

Döngünün üstünde ShowMessage ile bir mesaj yazdırın, eğer mesaj geliyor ve kodlar çalışmıyorsa bileşenler create edilirken owner parametresinde Form verilmemiştir veya Class uyuşmazlığı vardır. Hangi Türden bileşenlere işlem yapılacaksa direkt o class ile yazılmalı.