ClassParent (C++)

Description

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 you click the button, the name of the button's class and the names of its parent classes are added to the list box.

Code

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TClass ClassRef;
  ListBox1->Clear();
  ClassRef = Sender->ClassType();
  while (ClassRef != NULL)
  {
	ListBox1->Items->Add(ClassRef->ClassName());
	ClassRef = ClassRef->ClassParent();
  };
}

The list box contains the following strings after you click the button:

• TButton
• TButtonControl
• TWinControl or TWinControl
• TControl
• TComponent
• TPersistent
• TObject

Uses

• System.TObject.ClassParent ( fr | de | ja )
• System.TObject.ClassType ( fr | de | ja )
• System.TObject.ClassName ( fr | de | ja )