delphi 访问 protected 属性 哈哈

标签：

unit Unit39;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
TForm39 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form39: TForm39;

implementation

{$R *.dfm}

procedure TForm39.Button1Click(Sender: TObject);
type
aaa=class(twincontrol);
var i,j,k:integer;
begin
k:=self.ControlCount -1;
for I := 0 to k do
begin
aaa(self.Controls[i] ).Font.size:=22;

end;
end;

end.

delphi 访问 protected 属性 哈哈

标签：

原文地址：http://www.cnblogs.com/delphi-xe5/p/5390425.html