unit MyEdit;interfaceuses
Windows, Messages, SysUtils, Classes, Controls, StdCtrls;type
TMyEdit = class(TEdit)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
property
Color;
Text;
......等等
end;procedure Register;implementationprocedure Register;
begin
RegisterComponents('Samples', [TMyEdit]);
end;end.
Windows, Messages, SysUtils, Classes, Controls, StdCtrls;type
TMyEdit = class(TEdit)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
property
Color;
Text;
......等等
end;procedure Register;implementationprocedure Register;
begin
RegisterComponents('Samples', [TMyEdit]);
end;end.
property
Color;
Text;
......等等
end;
但是我对Color,Text赋值,是不是在这里?如
}
property
Color:=FFFFFF;
Text:='MY';
......等等
end;