Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 468
  • Last Modified:

COMPONENT HIERARCHY

COMPONENT HIERARCHY

How to know component hierarchy ?

For example : TLabel
-----
TObject
TPersistent
TComponent
TControl
TWidgetControl
TFrameControl
TCustomLabel
TLabel
-----

Thanks.
0
cvbmn
Asked:
cvbmn
1 Solution
 
kretzschmarCommented:
from the delphi help file:

This example shows how to obtain the ancestry of a component using the ClassType and ClassParent properties.  It uses a button and a list box on a form. When the user clicks the button, the name of the button’s class and the names of its parent classes are added to the list box.

procedure TForm1.Button1Click(Sender: TObject);

var
  ClassRef: TClass;
begin
  ListBox1.Clear;
  ClassRef := Sender.ClassType;
  while ClassRef <> nil do
  begin
    ListBox1.Items.Add(ClassRef.ClassName);
    ClassRef := ClassRef.ClassParent;
  end;

end;

The list box contains the following strings after the user clicks the button:

TButton
     TButtonControl
     TWinControl
     TControl
     TComponent
     TPersistent
     TObject

meikl ;-)
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now