如何更改Margins属性的默认值？

您可以TMargins使用自己的默认值声明您的后代,以在面板中使用

type
  TMyMargins = class(TMargins)
  protected
    class procedure InitDefaults(Margins: TMargins); override;
  published
    property Left default 10;
    property Top default 10;
    property Right default 10;
    property Bottom default 10;
  end;

class procedure TMyMargins.InitDefaults(Margins: TMargins);
begin
  with Margins do begin
    Left := 10;
    Right := 10;
    Top := 10;
    Bottom := 10;
  end;
end;

然后在创建面板时,关闭现有面板并使用您的面板

  TMyPanel = class(TPanel)
  private
    procedure DoMarginChange(Sender: TObject);
  public
    constructor Create(AOwner: TComponent); override;
  end;

constructor TMyPanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Margins.Free;
  Margins := TMyMargins.Create(Self);
  Margins.OnChange := DoMarginChange;
end;

procedure TMyPanel.DoMarginChange(Sender: TObject);
begin
  // same as in TControl which is private
  RequestAlign;
end;

仅当边距与默认值不同时,边距才会存储在dfm中.

虽然我不知道为什么上面的工作...上面的代码的问题是,Margins属性有一个setter只分配到边距(左,右..).代码永远不会写入支持字段,但它仍然有效.这条线

Margins := TMyMargins.Create(Self);

实际上是一样的

TMyMargins.Create(Self);

这也有效.

我的意思是'作品',它有效.边缘,fi,被正确销毁,而不是因为所有权等...(边缘işa TPersistent,而不是组件),但正好上升时TControl调用FMargins.Free.

无论如何,因为我不明白它是如何工作的,作为一个更安全但更糟糕的方法,我会用它:

constructor TMyPanel.Create(AOwner: TComponent);
var
  Addr: NativeUInt;
begin
  inherited Create(AOwner);

  Addr := NativeUInt(@Margins);
  Margins.Free;
  PUINT_PTR(Addr)^ := NativeUInt(TMyMargins.Create(Self));
  Margins.OnChange := DoMarginChange;
end;