Objelerin özelliklerine nasıl erişebilirim

[adelphiforumz]

S.A.

Form üzerinde oluşturulmuş objelerin parentlarının hangi türden olduklarını bulmanın kolay bir yolu varmıdır
benim ihtiyacım olan bir objenin TControl yada TWinControl sınıfından geldiğini anlamaya çalışmak
Objenin ClassParentı o objenin bir alt türünü veriyor benim istediğim ise bir üst türüne ulaşmak

Burda edit edilebilir yada edilemez türleri birbirinden kolayca ayırmaya çalışıyorum
TEdit Edit edilebilir
TLabel Edit Edilemez
TRadioButton Edit Edilebilir
TPanel Edit Edilemez

Bunlarla tektek uğraşmak yerine genel sınıfları ile çözüm bulabilirmiyim.

Teşekkürler

[SimaWB]

Edit edilebilir bileşenlerin hepsi TCustomEdit sınıfından türetilmiştir (sanırım )
Dolayısıyla şöyle birşeyler işinizi görmesi lazım diye düşünüyorum:

Kod: Tümünü seç

var
  i: Integer;
begin
  for i := 0 to ComponentCount-1 do
    if Components[i] is TCustomEdit then
      //edit edilebilir bileşen