TPersistent 与持久化的一些学习和Assign对象CLONE

unit fykEdit;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, StdCtrls;

type
  TfykEdit = class(TEdit)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
      procedure Assign(Source: TPersistent); override;
  published
    { Published declarations }
  end;

procedure Register;

implementation

{ TfykEdit }

procedure TfykEdit.Assign(Source: TPersistent);//可以进行对象CLONE
begin
  if Source is TfykEdit then
  begin
    self.Text  :=TfykEdit(Source).Text ;
    exit;
  end;
  inherited Assign(Source);

end;

procedure Register;
begin
  RegisterComponents('Standard', [TfykEdit]);
end;

end.

转载于:https://www.cnblogs.com/fuyingke/archive/2005/08/27/223951.html