TMyForm = class(TForm, IMyForm)

← →
Юрий Федоров © (2002-08-19 14:31) [0]

Можно ли так писать, или существуют какие-то подводные камни?
Дело в том, что деструктор формы, похоже, не вызывается при обнулении всех ссылок на интерфейс.

← →
Skier © (2002-08-19 14:36) [1]

>Юрий Федоров

> Дело в том, что деструктор формы, похоже, не вызывается
> при обнулении всех ссылок на интерфейс.

И правильно делают.
Тебе нужно перекрыть методы для подсчёта ссылок.
(_AddRef и _Release)
Код можно взять из TInterfacedObject...

>Skier
Спасибо

TMyForm = class(TForm, IMyForm) Найти похожие ветки