Скачать: CL | DM;

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

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

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

---

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

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

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

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

---

← →
Юрий Федоров ©   (2002-08-19 15:01) [2]

>Skier
Спасибо

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c