delphi - 访问 protected 属性(property)

Question

我有一个从 Tobject 派生的类。在我的类里面，我想使用控件的 protected 属性。这是我的代码

    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;

还有其他方法可以访问 protected 属性吗

Answer 1

据我所知，可以执行此任务的选项是:

1. 问题中演示的经典 protected 黑客。
2. 新样式 RTTI。
3. 类(class)助手。