怎么在控件的父类添加一个属性呢?

Question

加在TWinControl或者其他父类中 
加一个属性 bModify : boolean; 要怎么实现呢?或者其他方法控件的公共属性

Answer 1

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.

Answer 2

利用 TClass Helper 查看 Delphi7 之后加的新内容。

Answer 3

关键是怎么给父类TWinControl加属性啊 想给按钮,edit等加个公共属性上去

Answer 4

D7的话只能修改TWinControl的源码了。

Answer 5

type
  TSelfStringList = class(TStringList)
  private
    FbModify: boolean;
    procedure SetbModify(const Value: boolean);
  published
    property bModify: boolean read FbModify write SetbModify;
  end;
 
你把这个  TStringList 换成edit  不就成了 么。你继承的是TSelfStringList 就可以多一个bModify属性了，然后动态创建，如果实在是要改edit控件，就只有修改源码了

Answer 6

我改treenode加过一个属性：dataString

Answer 7

最好的是想要的父类public段加入property bModify: boolean read FbModify write SetbModify;
想要在属性编辑栏显示就加在published段就行了