Question

delphi 复合控件设计期属性无法应用到运行期

例如自动尺寸是这样写的：
TNumEdit = class(TCustomControl)
private
FAutoSize: Boolean;
procedure SetAutoSize(const Value: Boolean);
published
property AutoSize: Boolean read FAutoSize write SetAutoSize default True;
end;
implementation
procedure TNumEdit.SetAutoSize(const Value: Boolean);
begin
if FAutoSize <> Value then
begin
FAutoSize := Value;
AdjustBounds;
end;
end;
end.
在设计器里面设置为true时，在运行的时候不起作用，要在运行的时候再设置一下才可以正常使用的。
在设计期的时候都可以的正常使用的。但是运行后就不行了，通过在运行时读取状态发现AutoSize为False，

Answer 1

是否应该在constructor里面里写入adjustbounds

追问

在设计期的时候都可以的正常使用的。但是运行后就不行了，通过在运行时读取状态发现AutoSize为False，

追答

delphi中属性里的default的意思是该属性的值在何种情况下才保存到dfm文件中，即：只有当用户的设置的属性值和default后的常数不相同时，才保存这个值到dfm文件中，而不是用来指定属性的默认值。

追问

那应该怎么样解决这种问题，控件的其他属性都是这样的，需要在运行时在重新设置一下才可以。

追答

试试在TNumEdit 的contructor里写入FAutoSize：=true;