Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.12.20;
Скачать: CL | DM;

Вниз

Destroy в интерфейсе не вызывается?   Найти похожие ветки 

 
Cobalt ©   (2008-12-19 18:05) [0]

Сделал свой наследник  TInterfacedObject, исполняющий мой интерфейс.
У этого класса есть поле - фрейм.
Я хочу освобождать фрейм при уничтожении моего наследника, перекрыл деструктор, поставил в нем брек-пойнт, но остановки в нем не происходит.

Может кто объяснить - почему?
Ведь TInterfacedObject вызывает-таки Destroy

function TInterfacedObject._Release: Integer;
begin
 Result := InterlockedDecrement(FRefCount);
 if Result = 0 then
   Destroy;
end;


Мой класс:
 TFireFoxPlugIn = Class(TInterfacedObject, ISaverSettingsPlugIn)
  Protected
    FFrame: TfrmFireFox;
    FVersion: String;
    FHasData: Boolean;
    FCopyCash: Boolean;
  Public
   Constructor Create;
   function Present: WordBool; safecall;
   procedure SaveSettings(Directory: PWideChar; BackUp: WordBool); safecall;
   procedure LoadSettings(Directory: PWideChar; BackUp: WordBool); safecall;
   procedure GetProgramName(out ProgramName: PWideChar); safecall;
   function GetFrame(AParent: TWinControl):TFrame;
   Destructor Destroy; override;
  Published
    Property Version: string read FVersion;
    Property HasData: Boolean read FHasData;
    Property CopyCash: Boolean read FCopyCash;
 end;


Деструктор:
destructor TFireFoxPlugIn.Destroy;
begin
    FreeAndNil(FFrame);
    inherited;
end;


 
Сергей М. ©   (2008-12-19 19:50) [1]

Приведи фрагменты использования своего объекта


 
Cobalt ©   (2008-12-19 20:47) [2]

Блин, точно!
Я ж ссылки на него не обнуляю )))



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

Текущий архив: 2009.12.20;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
15-1256145675
palva
2009-10-21 21:21
2009.12.20
Неполадки в форуме?


2-1256795460
Rimdus
2009-10-29 08:51
2009.12.20
Компонент без отладки


2-1257420503
-=SV=-
2009-11-05 14:28
2009.12.20
Возможно ли в заголовке PageControl поставить или добавить кноку?


15-1256189383
TDelphi
2009-10-22 09:29
2009.12.20
Ужасный код


15-1255470552
Германн
2009-10-14 01:49
2009.12.20
Ещё один дурацкий вопрос. Intel vs AMD.