定义一个结构类型属性, 对这个属性赋值, 为什么不能通过

Question

type
  TTestClass = class
  private
    FRect: TRect;
    procedure SetRect(const Value: TRect);
  public
    property Rect: TRect read FRect write SetRect;
  end;  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public  end;var
  Form1: TForm1;implementation
{$R *.dfm}{ TTestClass }procedure TTestClass.SetRect(const Value: TRect);
begin
  FRect := Value;
end;procedure TForm1.btn1Click(Sender: TObject);
var
  a: TTestClass;
begin
  a := TTestClass.Create;
  a.Rect.Left := 10;//为什么不行
  a.Free;
end;procedure TForm1.btn2Click(Sender: TObject);
var
  a: TTestClass;
  b: TRect;//这样弄好烦哦
begin
  a := TTestClass.Create;
  b.Left := 10;
  a.Rect := b;
  a.Free;
end;

Answer 1

a.Rect.Left := 10;//为什么不行看不出那里不行

Answer 2

错误提示: Left side cannot be assigned to

Answer 3

好像是不行的 那再单独写一个属性 比如 Left吧。。

Answer 4

把结构和类混成一个东西了，  procedure TTestClass.SetRect(const Value: TRect);
begin
  FRect := Value;
end;frect := Value  不可以的了