如何在控件的父类添加一个属性呢

怎么在控件的父类添加一个属性呢?
加在TWinControl或者其他父类中 
加一个属性 bModify : boolean; 

要怎么实现呢?

或者其他方法

控件的公共属性

[解决办法]
要修改父类控件源码啊
[解决办法]

Delphi(Pascal) code

interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    Button1: TButton;    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;type  TSelfStringList = class(TStringList)  private    FbModify: boolean;    procedure SetbModify(const Value: boolean);  published    property bModify: boolean read FbModify write SetbModify;  end;var  Form1: TForm1;implementation{$R *.dfm}{ TForm1 }procedure TForm1.Button1Click(Sender: TObject);var  fff: TSelfStringList;begin  fff := TSelfStringList.Create;  fff.FbModify := False;  if fff.FbModify then    ShowMessage('yes')  else    ShowMessage('no');  fff.Free ;end;{ SelfWinControl }procedure TSelfStringList.SetbModify(const Value: boolean);begin  FbModify := Value;end;end.
[解决办法]
利用 TClass Helper 查看 Delphi7 之后加的新内容。
[解决办法]
最好的是想要的父类public段加入property bModify: boolean read FbModify write SetbModify;
想要在属性编辑栏显示就加在published段就行了