if (dynamic_castTButton*>(ActiveControl)) { //кнопка} else { //ну, вы поняли}
ActiveControl->ClassName()
if(ActiveControl->ClassNameIs("TButton")) ShowMessage("Это кнопка");