其实也是挺简单的,首先你根据你的属性从各种基类继承,
如String类型的则从TStringProperty继承下来,再根据你的
具体要求重载其中的方法
TMyProperty = class(TStringProperty)
function AllEqual: Boolean
override;
function GetEditLimit: Integer
override;
function GetValue: string
override;
procedure SetValue(const Value: string)
override;
end;
最后一步是注册你的属性编辑器:
RegisterPropertyEditor(TypeInfo(string), TMyComponent, 'MyPropertyName', TMyProperty);
搞定!