访问受保护的财产

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. 一个班助手.