Delphi Sources

Получение ссылки на класс из объекта 2


Автор: Pat Ritchey

Мне необходимо получить ссылку на класс из объекта...


TObject.ClassType

var
  ClassRef : TComponentClass;
  NewComp:TComponent;
begin
  TClass(ClassRef) := Sender.ClassType;
  NewComp := ClassRef.Create(Self);
...