老生常谈的题目：如何操纵其它类的PROTECTED域方法和属性。

Question

Merry X'mas & Happy New Year!

Answer 1

通过例子来说明，假设我们要访问TShape的AdjustSize方法，但这个是TControl的一个保护方法，所以其他单元没有办法调用。我们在本单元声明一个访问类：
type
  TControlAccess =class(TControl);
接着可以这样做：
  TControlAccess(Shape3).AdjustSize;
通过将Shape3强制转换为TControlAccess，就可以访问TControl的保护成员和保护方法。

Answer 2

其实都不必强制转换
如：
type
  TPanel = class(ExtCtrls.TPanel);  TForm1 = class(TForm)
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
....
procedure TForm1.FormCreate(Sender: TObject);
begin
  panel1.Canvas.
end;

Answer 3

merkey2002(小样的)的方法是我的至爱，偏心点：100分
linzhengqun(风。我回来了) 的方法比较常用：80分
大哥委屈一下： 20分
其他几位社员，共同学习吧！（别给老冯扔臭鸡旦哈）