Не все поля.методы реализовал в интерфейсе.
Сделай еще интерфейс. Сделай наследника интерфейса. Зачем тебе AS, когда есть чудесный Supports Смешивание объектных и интерфейсных ссылок - путь полный боли. В XE и выше, можно получить реализацию. TComponent = class(TPersistent, IInterface, IInterfaceComponentReference) IInterfaceComponentReference = interface ['{E28B1858-EC86-4559-8FCD-6B4F824151ED}'] function GetComponent: TComponent; end;
Конечно, и откроешь к ними доступ в потомке.
Обсуждают сегодня