Update a default value only during design-time

Question

I would like to update the default value of a private variable linked to a public property only during design-time, in case it\'s possible.

TMyComp = class(TComp         


        

Answer 1

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

but this do not go to dfm file and when you run app your def will be gone why not to put this as another published property? or better write "stored" function like it is done many times in delphi source code like this

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