23 lines
534 B
ObjectPascal
23 lines
534 B
ObjectPascal
|
uses
|
|||
|
|
System.ComponentModel;
|
|||
|
|
|
|||
|
|
type
|
|||
|
|
MyClassConverter = class (TypeConverter)
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
MyClass = class
|
|||
|
|
private
|
|||
|
|
fMyField: MyClass;
|
|||
|
|
public
|
|||
|
|
[TypeConverterAttribute(typeof(MyClassConverter))]
|
|||
|
|
property MyProperty: MyClass read fMyField write fMyField;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
var o := new MyClass;
|
|||
|
|
o.MyProperty := o;
|
|||
|
|
var props := o.GetType().GetProperties();
|
|||
|
|
var attrs := props[0].GetCustomAttributes(false);
|
|||
|
|
assert((attrs[0] as TypeConverterAttribute).ConverterTypeName.IndexOf('MyClassConverter') <> -1);
|
|||
|
|
end.
|