自定义控件的属性 ( 积分: 50 )

自定义控件, 有一个属性, 我想自已写Set事件, 如何做

type
TFrameCodeName = class(TWinControl)
private
...
procedure SetTabStop(Value: Boolean); overload;
published
...
property TabStop: Boolean write SetTabStop default true;
end;

implementation

procedure TFrameCodeName.SetTabStop(Value: Boolean);
begin
...
end;
end.

这样做编译, 但控件用不了.
因TabStop属性在父类TWinControl中已有定义. 现在我要想实现TabStop改变时调用自已定义的事件, 要怎样做才行

type
TFrameCodeName = class(TWinControl)
private
FTabStop:Boolean;
procedure SetTabStop(Value: Boolean); overload;
published
...
property TabStop: Boolean Read FTabStop write SetTabStop default true;
end;

implementation

procedure TFrameCodeName.SetTabStop(Value: Boolean);
begin
if FTabStop <> Value then
FTabStop:=Value;// 加入你自己处理的业务就行了。
end;
end.

接受答案了.