Form'da ki, komponent isimlerini almak.

[RADCoder]

Merhabalar,
Arkadaşlar, şöyle bir tanımlama ile nesnenin class ismini göstererek:

Kod: Tümünü seç

(Form2.Components[0] as TLabel).Name

Formda bulunan nesnelerin isimlerini ala biliyoruz.
Peki form üzerinde ne kadar nesne varsa class ismini yazmadan bir tıkla nasıl ala biliriz?
Önceden teşekkürler..

[vkamadan]

Merhabalar,
"Name" özelliği TComponent ten geldiği için sınıf adı yazmadan da Form2.Components[0].Name diyerek adını alabilirdiniz , formunuzun üzerinde ki görsel ya da görsel olmayan tüm bileşenler içinde aşağıdaki gibi bir döngüyle dolaşabilirsiniz, örnekte form üzerinde mmListe isimli bir TMemo ya bileşen isimlerini yazacaktır

Kod: Tümünü seç

var
i:Integer ;
begin
for I := 0 to ComponentCount - 1 do mmListe.Add( Components[i].Name );
end;

[RADCoder]

Allah razı olsun, çok çok teşekkür ederim.
Bilgi ve örnek verdiyiniz için çok sağolun.