Q&A

  • 콤포넌트 상속관계를 알아낼 수 있나요?
현재 사용중인 콤포넌트가 어떤 콤포넌트를
상속 받아서 만들어진 것이지 분석하고 싶은데요.
그렇게 할 수 있는 건가요?
뿌리를 찾아서...
예전에 할 수 있다고 들은 것 같아서요...
2  COMMENTS
  • Profile
    홍성락 2008.11.14 04:08
    족보 찾는거면 TClass를 사용하면 됩니다.
    만약에 TComboBox 족보는...
    '/TComboBox/TCustomComboBox/TCustomCombo/TCustomListControl/TWinControl/TControl/TComponent/TPersistent/TObject'

    검사시는 if a is b then 처럼 is를 사용하면 됩니다

    procedure TForm1.Button1Click(Sender: TObject);
    var
    pTComponent : TComponent;
    pTClass : TClass;
    Class_Name : string;
    begin
    {pTComponent := ComboBox1.Owner;
    pTClass := pTComponent.ClassType;}
    //또는
    pTClass := TComboBox;

    Class_Name := '';
    while pTClass <> nil do begin
    Class_Name := Class_Name + '/' + pTClass.ClassName;
    pTClass := pTClass.ClassParent;
    end;
    showmessage(Class_Name);
    end;
  • Profile
    나명진 2008.11.14 22:20
    와우 정말 감사합니다..^^