delphi – 如何使用子属性编写属性？ (终极版)

概述我确信我对 my previous question有一个很好的答案,因为我以前在那里发布的那些人的其他问题上得到了很多帮助. 但我显然做错了,因为当我复制示例代码时,对象检查器显示我的MyProp属性是单个文本输入字段.我期待看到类似于Font属性的东西,包括Pitch,字体系列等,即我期望看到树结构,但我没有看到MyProp属性的Color,Height或Width属性. 有任何想法吗？我再一 我确信我对 my previous question有一个很好的答案,因为我以前在那里发布的那些人的其他问题上得到了很多帮助.

但我显然做错了,因为当我复制示例代码时,对象检查器显示我的MyProp属性是单个文本输入字段.我期待看到类似于Font属性的东西,包括Pitch,字体系列等,即我期望看到树结构,但我没有看到MyProp属性的color,Height或WIDth属性.

有任何想法吗？我再一次完全复制了那段代码.

编辑：我忘了(在这个问题中)我正在使用TMS scripter pro,它允许用户在运行时设计表单并提供自己的对象检查器,但这可能源自标准的Delphi内容,我想.

无论如何,看起来我太笨了,无法编写Delphi代码,因为我根本无法让它工作.

编辑：TMS向我保证,如果具有“子属性”的类是TPresistent的后代,那么它将出现在具有子属性的对象检查器中,就像Font,Anchors等

当我使用此代码时,“警告”属性在对象检查器中显示为文本字段,并且没有子属性

unit IntegerEditBox;  // An edit Box which only accepts integer values and warns if the value is not in a certain rangeinterfaceuses  SysUtils,Classes,Controls,StdCtrls,EditBox_BaseClass;type  TWarning = Class(TPersistent)    private      FWarningBelowValue   : Integer;      FWarningAboveValue   : Integer;      FWarningEmailTo : String;      FWarningSmsTo   : String;    published      property WarningBelowValue   : Integer read FWarningBelowValue   write FWarningBelowValue;      property WarningAboveValue   : Integer read FWarningAboveValue   write FWarningAboveValue;      property WarningEmailTo      : String  read FWarningEmailTo      write FWarningEmailTo;      property WarningSmsTo        : string  read FWarningSmsTo        write FWarningSmsTo;  end;  TIntegerEditBox = class(TEditBox_BaseClass)    private      FWarning : TWarning;      procedure WriteValue(const newValue : Integer);    protected      // The new property which w/e introduce in this class      FValue : Integer;       public { Public declarations }      Constructor Create(AOwner: TComponent); overrIDe;   // This constructor uses defaults      property Text;    published  { Published declarations - available in the Object Inspector at design-time }      property Hint;      // Now our own propertIEs,which we are adding in this class      property Value : Integer read FValue write WriteValue;      property Warning  : TWarning read FWarning write FWarning ;  end;  // of class TIntegerEditBox()procedure Register;implementationuses  Dialogs;  procedure Register;  begin    RegisterComponents('Standard',[TIntegerEditBox]);  end;  Constructor TIntegerEditBox.Create(AOwner: TComponent);  begin    inherited;  // Call the parent Create method    Hint := 'Only accepts a number|Only accepts a number'; // tooltip | status bar text    Mandatory := True;    Value := 0;    Text := IntToStr(Value);  end;  procedure TIntegerEditBox.WriteValue(const newValue : Integer);  begin    Text := IntToStr(newValue);  end;end.

解决方法 the demo code的 original version忽略了创建属性对象的实例.

constructor TMyControl.Create(AOwner: TComponent)begin  inherited;  FMyProp := TCustomType.Create;end;

不要忘记在析构函数中释放它.

雷米对该答案的评论指出,需要对房产进行不同的分配.该属性的写访问器不应直接写入该字段.相反,它应该有一个像这样工作的setter方法：

procedure TMyControl.SetMyProp(const Value: TCustomType);begin  FMyProp.Assign(Value);end;

这也强调了实现属性类的Assign方法的要求,否则你会得到奇怪的错误消息,例如“无法将TCustomType分配给TCustomType”.一个简单的实现可能是这样的：

procedure TCustomType.Assign(Source: TPersistent);begin  if Source is TCustomType then begin    color := TCustomType(Source).color;    Height := TCustomType(Source).Height;    WIDth := TCustomType(Source).WIDth;  end else    inherited;end;

总结

以上是内存溢出为你收集整理的delphi – 如何使用子属性编写属性？ (终极版)全部内容，希望文章能够帮你解决delphi – 如何使用子属性编写属性？ (终极版)所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。