Получение ссылки на класс из объекта 2
Автор: Pat Ritchey
Мне необходимо получить ссылку на класс из объекта...
TObject.ClassType
var
ClassRef : TComponentClass;
NewComp:TComponent;
begin
TClass(ClassRef) := Sender.ClassType;
NewComp := ClassRef.Create(Self);
...
|
|