在PB可视用户类中动态创建其它可视对象

来源:互联网 发布:数据粒度怎么计算 编辑:程序博客网 时间:2024/06/02 13:13
很多人在创建高阶的可视类的时候都会遇到以上情况,但PB却没有提供这样的纯浄的实现方法。
下面将本人的实现方式做一描述:
1..window lw_parent --父窗口
2..u_cst_button luo_item --实例命名
3..SetRedraw(FALSE) --停刷
4..of_GetParentWindow() --获取父窗口(这中间的实现方法就不要问了,到处都是)
5..lw_parent.OpenUserObject(luo_item) --动态打开实例(发现没,这终归还是使用了窗口级的动态生成对象)
6..SetParent(Handle(luo_item),Handle(THIS)) --将刚打开的实例装入本对象容器(这就是核心了,配合OperUserObject就完成了完整动态创建了)
7..SetRedraw(TRUE) --开刷
实现这个过程其实就是一个动态创建对象和所在容器转移的过程,代码行5-6就是关键所在;
依此思路灵活应用应该可以设计出很强大的高阶可视类了,其中6行使用了以下API的申告:
PUBLIC FUNCTION Long SetParent(Long lChild, Long lParent) LIBRARY "user32.dll"
原创粉丝点击