如何访问受保护的类方法

Question

我们有这个基类：

TCustomContextOpenGL = class(TContext3D)
  protected
    **class** procedure CreateSharedContext; virtual; abstract;
  end;

并在程序中知道我们所做的当前上下文类：

TContextManager.DefaultContextClass => return TContextClass = class of TContext3D;

这将例如返回 TCustomAndroidContext 或 TCustomContextIOS 覆盖 CreateSharedContext 但让它受到保护

我的问题是我需要做的

TContextManager.DefaultContextClass.CreateSharedContext 

但这当然行不通，因为 CreateSharedContext 在 TCustomContextOpenGL 中受到保护 :( 我该怎么办？

Answer 1

最好的办法是避免直接调用受保护的方法。如果它是第 3 方类并且您无法更改它，那么您可以像访问任何其他受保护类成员一样访问受保护类方法。

有一个示例如何访问受保护的对象事件： Accessing protected event of TWinControl

访问受保护类方法的类似方式：

type
  TCustomContextOpenGLHack = class(TCustomContextOpenGL);
  CCustomContextOpenGLHack = class of TCustomContextOpenGLHack;

procedure Test;
begin
  CCustomContextOpenGLHack(TContextManager.DefaultContextClass).CreateSharedContext;
end;