S
simontown
Unregistered / Unconfirmed
GUEST, unregistred user!
我写了一个控件，可以在设计期载入一个配置文件，然后根据配置文件动态创建其他的控件，以上都是在设计期发生的。
但是动态创建的控件，不能被编辑，和运行期一样，有人说需要将属性加入属性编辑器，但给的代码不全，有些关键地方没有。我目前写出来的就下面这些：
Count := GetPropList(Component.ClassInfo,tkProperties,nil);
Size := Count * SizeOf(Pointer);
FreeMem(PropList);
GetMem(PropList,Size);
Count := GetPropList(Component.ClassInfo,tkProperties,PropList);
for i := 0 to Count-1 do
begin
PropInfo := PropList^;
PropEdit := nil;
if IsPublishedProp(Component,PropInfo^.Name) then
begin
//这里，如果判断到是属性，怎么放进属性编辑器呢？
end;
end;
另外，还需要个TValueListEditor吧？这个是不是指IDE的属性编辑器？该怎么弄呢？
麻烦各位大哥指点一下！或者给个详细点的示例代码！不胜感激！分不多，只有100分了
我QQ 56385501，能加好友指点更感谢！^_^
但是动态创建的控件，不能被编辑，和运行期一样，有人说需要将属性加入属性编辑器，但给的代码不全，有些关键地方没有。我目前写出来的就下面这些：
Count := GetPropList(Component.ClassInfo,tkProperties,nil);
Size := Count * SizeOf(Pointer);
FreeMem(PropList);
GetMem(PropList,Size);
Count := GetPropList(Component.ClassInfo,tkProperties,PropList);
for i := 0 to Count-1 do
begin
PropInfo := PropList^;
PropEdit := nil;
if IsPublishedProp(Component,PropInfo^.Name) then
begin
//这里，如果判断到是属性，怎么放进属性编辑器呢？
end;
end;
另外，还需要个TValueListEditor吧？这个是不是指IDE的属性编辑器？该怎么弄呢？
麻烦各位大哥指点一下！或者给个详细点的示例代码！不胜感激！分不多，只有100分了
我QQ 56385501，能加好友指点更感谢！^_^