Código Delphi [-] // Preguntamos si cierto objeto es un descendiente de TCustomEdit: if Edit1 is TCustomEdit then ShowMessage('Desciende de TCustomEdit');
// Preguntamos si cierto objeto es un descendiente de TCustomEdit: if Edit1 is TCustomEdit then ShowMessage('Desciende de TCustomEdit');