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.