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

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

要怎么实现呢?

或者其他方法

控件的公共属性

------解决方案--------------------
要修改父类控件源码啊
------解决方案--------------------

Delphi(Pascal) code


interface

uses
  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段就行了

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

相关推荐