Objekte finden, egal ob TLMDEdit oder TRzEdit

[Sir Rufo]

Damit kannst du dir den gesamten Vererbungspfad anzeigen lassen:

Delphi-Quellcode:

function GetClassInheritancePathFrom( Instance : TObject ) : string;
var
  LClass : TClass;
begin
  Result := Instance.ClassName;
  LClass := Instance.ClassParent;
  while Assigned( LClass ) do
  begin
    Result := LClass.ClassName + '->' + Result;
    LClass := LClass.ClassParent;
  end;
end;

Ergebnis bei einem Button:

Code:

TObject->TPersistent->TComponent->TControl->TWinControl->TButtonControl->TCustomButton->TButton