4

概述

在编写组件时，我喜欢给我发布的属性一个默认值，通过这样做，对象检查器会以粗体显示任何新更改的属性，这对于使用该组件的任何人来说都非常有用，因为他们可以轻松地识别默认值和修改值。

例子

下面是一个包含两个 Color 和两个 Font 属性的组件示例：

我正在default类结构中制作已发布的属性：

type
  TMyComponent = class(TComponent)
  private
    FColor: TColor;
    FColorTo: TColor;
    FFont: TFont;
    FFontHot: TFont;
    procedure SetColor(const Value: TColor);
    procedure SetColorTo(const Value: TColor);
    procedure SetFont(const Value: TFont);
    procedure SetFontHot(const Value: TFont);
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property Color: TColor read FColor write SetColor default clGreen;
    property ColorTo: TColor read FColorTo write SetColorTo default clBlue;
    property Font: TFont read FFont write SetFont; //< set default?
    property FontHot: TFont read FFontHot write SetFontHot; //< set default?
  end;

和构造函数：

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

  FColor := clGreen;
  FColorTo := clBlue;

  FFont := TFont.Create;
  FFont.Color := clRed;
  FFont.Name := 'Segoe UI';
  FFont.Size := 10;
  FFont.Style := [];

  FFontHot:= TFont.Create;
  FFontHot.Color := clNavy;
  FFontHot.Name := 'Verdana';
  FFontHot.Size := 8;
  FFontHot.Style := [fsItalic];
end;

destructor TMyComponent.Destroy;
begin
  FFont.Free;
  FFontHot.Free;

  inherited Destroy;
end;

问题

我遇到的问题是如何将已发布的 Font 属性“标记”为默认值？

当我将组件添加到表单时，对象检查器中的两个 TFont 属性都是粗体（非默认）。如果我单击每个已发布字体旁边的椭圆，我可以看到我从构造函数中设置的值显示出来——但它们再次以粗体显示。奇怪的是，每种字体的大小值从未以粗体显示（即看起来没有变化）。

标准发布的属性可以default很容易地制作，但是如何使用像 TFont 这样具有子属性的类来做到这一点？

我看不到从类结构中设置默认值的方法，只能在构造函数中。即使我可以从类结构中定义默认值（这似乎是不可能的），我也怀疑它是否会起作用，因为尚未创建字体。例如（显然不起作用）：

published
  property FontHot: TFont read FFontHot write SetFontHot default FFontHot.Color := clRed; //< set default?

那么，在将新组件添加到对象检查器时，如何使已发布的 TFont 属性显示为默认值且未更改？

我想这同样适用于其他类似于 TFont 作为子属性的类。

4

1 回答 1

10

对于对象属性，默认存储说明符是stored. 存储后False（从不保存到 DFM）、True（始终保存）或返回的无参数函数。你需要最后一个：

private
  function IsFontStored: Boolean;
published
  property Font: TFont read FFont write SetFont stored IsFontStored;

在IsFontStored函数内，您可以决定当前设置的字体是否为默认字体。如果是，则返回False。

于 2013-02-13T12:04:47.740 回答