访问受保护的财产

Question

我有一个派生自Tobject的课程。在我的课堂上，我想使用受保护的控制属性。这是我的代码

    type
    THack = class(Tcontrol);

    TMyClass = class(TObject)
    private
      A: string;
      B: string;
      C: string;
      D: string;
    public
      procedure DoSomthing(MyForm: TForm);
    end;

  procedure TMyClass.DoSomthing(MyForm: TForm);
  var
    I: Integer;
  begin
    for I := 0 to MyForm.ControlCount - 1 do
    begin
      // I want to read Font property
      showmessage(inttostr(THack(MyForm.Controls[I]).Font.Size));
   end; 
  end;

我还有其他方法可以访问受保护的属性

Answer 1

我所知道的可以执行此任务的选项是：

1. 问题中演示的经典受保护黑客。
2. 新款RTTI。
3. 一名班助手。