ClassParent (C++)

From RAD Studio Code Examples
Jump to: navigation, search

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

Personal tools
Assistance