Delphi スタイルのオブジェクトを継承関係チェック

C++Builder において、Delphi スタイルのオブジェクト (例えば VCL コンポーネント)の継承関係をチェックするには、以下のような構文を利用します。

	if (Button1->InheritsFrom(__classid(TComponent))) {
		ShowMessage("Button1 は TComponent を継承したものです"); // こちらを通過
	}
	else {
		ShowMessage("Button1 は TComponent を継承したものではありません");
	}

	if (Button1->InheritsFrom(__classid(TListView))) {
		ShowMessage("Button1 は TListView を継承したものです");
	}
	else {
		ShowMessage("Button1 は TListView を継承したものではありません"); // こちらを通過
	}