★★★ 请组件高手进来看看！

Question

重载实现这个方法:
procedure TComponent1.DefineProperties(Filer: TFiler);
begin
  Filer.DefineProperty('YourExe', ReadExe, WriteExe, TRUE);
end;

Answer 1

try this:
  TExe=class(TPersistent)
  Private
    Fstr:String;
    Fchar:String;
  public
    constructor Create;
    destructor Destroy; override;
  published
    property FileName:String read fstr write fstr;
    property Spechar:String read Fchar write Fchar;
  end;

Answer 2

thank chechy(我爱洁洁) 
正是：TExe=class(TPersistent)这句。
我有按TButton-->TFont=class(TPersistent) 找出原因的。to borlandor(大民) :我是做组件，而不是写函数:)
   Filer.DefineProperty() 

Answer 3

TExe=class
与 TExe=class(TPersistent)
有什么区别? 我不了解

Answer 4

TPersistent继承的类可以向dfm文件写东西，而从TObject继承的不行。