仅在设计时更新默认值

我想仅在设计时更新链接到公共属性的私有变量的默认值（如果可能的话）。

TMyComp = class(TComponent)
  private
    FColumnWidth: Integer;
    FColumnWidthDef: Integer;
  protected
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property ColumnWidth: Integer read FColumnWidth write SetColumnWidth  default 50;
  end;

...

constructor TMyComponent.Create(AOwner: TComponent);
begin
  inherited;

  FColumnWidth:= 50;
  FColumnWidthDef:= FColumnWidth;
end;

destructor TMyComponent.Destroy;
begin
  FColumnWidth:= 0;
  FColumnWidthDef:= 0;

  inherited;
end;

procedure TMyComponent.SetColumnWidth(const Value: Integer);
begin
if FColumnWidth <> Value then
  begin
    FColumnWidth:= Value;

    FColumnWidthDef:= FColumnWidth; //<-- how to run this only during design-time?
  end;
end;

我想做的是将属性的默认值存储在私有变量中ColumnWidth。组件的运行时代码内部有一个重置按钮，可以将属性更改为默认值FColumnWidthDef。如果我像上面的代码一样执行此操作，则该值将在设计时和运行时更新。

procedure TMyComponent.SetColumnWidth(const Value: Integer);
begin
if FColumnWidth <> Value then
  begin
    FColumnWidth:= Value;
    if csDesigning in ComponentState then
      FColumnWidthDef:= FColumnWidth;  
  end;
end;

但这不会进入 dfm 文件，当您运行应用程序时，您的 def 将消失 为什么不把它作为另一个已发布的财产呢？ 或者更好地编写“存储”函数，就像在delphi源代码中多次完成一样

property BorderIcons: TBorderIcons read FBorderIcons write SetBorderIcons stored IsForm
      default [biSystemMenu, biMinimize, biMaximize];