delphi – 如何有条件地将属性保存到DFM？

type
  TMain = class(TComponent)
  ...
  published
    property Default: Integer read FDefault write SetDefault;
  end;

  TSub = class(TComponent)
  ...
  published
    property Value: Integer read GetValue write SetValue;
    property Main: TMain read FMain write SetMain;
  end;

因此,在TSub的对象检查器中,用户会选择与其关联的TMain.

在子组件中,我有一个带有getter和setter的属性Value.如果子组件的值设置为0,则getter将从附加到的TMain获取Default属性…

function TSub.GetValue: Integer;
begin
  if FValue = 0 then begin
    if Assigned(FMain) then begin
      Result:= FMain.Default;
    end else begin
      Result:= 0;
    end;
  end else begin
    Result:= FValue;
  end;
end;

这使得对象检查器(以及其自身的属性)从main而不是set 0值返回默认值.

我想要做的是确保当TSub组件的属性保存到DFM时,如果它为0则不保存此属性(因此使用默认值来取代).目前,在保存DFM之后,来自main的默认值的任何值都将保存在sub的值中,这不是我想要的.

当然,属性将被标记为默认值0;例如,指示如果属性的值设置为0,则该属性不会保存到DFM中.但由于默认值可能会有所不同,因此我无法标记此属性的默认值(因为它需要定义默认值).

如果将此属性设置为0并使用属性getter中main的默认值,如何构造TSub组件以不将此属性保存到DFM？