怎样在一个组件中添加自定义的属性

Question

我想在Treeview组件中添加一属性。该属性是整形变量。通过它来读或写。我该怎么添加呢？

Answer 1

type
  TRocMemo = class(TRxRichEdit)
  private
    { Private declarations }
     FWordApp:TWordApplication;
     FWordDoc:TWordDocument;     procedure SetFWordApp(Value:TWordApplication);
     procedure SetFWordDoc(Value:TWordDocument);
     procedure ClearSpaceAndNullRow;
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner:Tcomponent); override;
    destructor Destroy; override;
    procedure LoadFromFile(FileName:WideString);
    procedure LoadFromField(Field:TField);
    procedure LoadPictureAndString(Field:TField; InsertStr:String);
    procedure AddFromFile(FileName:WideString);
    procedure AddFromField(Field:TField);
    procedure SaveTo(FileName:WideString);overload;
    procedure SaveTo(Field:TField);overload;
  published
    { Published declarations }
     property WordApp:TWordApplication
              read FWordApp
              write SetFWordApp;     property WordDoc:TWordDocument
              read FWordDoc
              write SetFWordDoc;
  end;