如：
Type
TMtEdit = class(TEdit)
private
FAbout: String;
procedure SetAbout(Value: String);
public
constructor Create(AOwner: TComponent); override;
published
property About: String read FAbout write SetAbout;
implementation
constructor TMyEdit.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FAbout := 'Contact me with my e-mail ...';
end;
procedure TMyEdit.SetAbout(Value: String);
begin
Value := 'Contact me with my e-mail ...';
if FAbout <> Value then
begin
FABout := Value;
invalidate;
end;
end;
