Delphi-Quellcode:
TSkinPopUpMenu = class(TInterfacedObject, ISkinPopUpMenu...)
...
protected
function _AddRef: Integer; stdcall;
function _Release: Integer; stdcall;
public
...
end;
...
function TSkinPopUpMenu._AddRef: Integer;
begin
Result := inherited _AddRef;
end;
function TSkinPopUpMenu._Release: Integer;
begin
Result := inherited _Release;
end;
Dann in den eigenen _AddRef und _Release Haltepunkte setzen und vergleichen.
Irgendwo gibt es das Ungleichgewicht.
Fortgeschrittenen-Tipp:
Haltepunkte setzen aber in den Eigenschafen Break/Anhalten deaktivieren und den Call Stack mitloggen in der Ereignisanzeige: