[jachguate]

Empezado por barman

No se si es a lo que te refieres

void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (Sender ->ClassNameIs("TButton"))
ShowMessage("Boton");
}

Pero un TButton es un TControl... y:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (Sender ->ClassNameIs("TControl"))
        ShowMessage("Control");

nos diría que no lo es... cuando el operador IS en delphi, nos diría (correctamente) que si lo es.

Hasta luego.