TSkObject

type TSkObject = class(TObject,ISkObject)

protected

  function GetHandle;

  function QueryInterface();

  function _AddRef;

  function _Release;

  class procedure __DestroyHandle(); virtual;

  class procedure __MarkDestroying();

  class procedure __RefHandle(); virtual;

  class procedure __UnrefHandle(); virtual;

public

  constructor Wrap();

  procedure AfterConstruction; override;

  procedure BeforeDestruction; override;

  property Handle: sk_handle_t; [r]

  property RefCount: Integer; [r]

  class function NewInstance; override;

  class function __ReleaseHandle();

end;

TSkObject

TObject,ISkObject