引言： 假设我们要将某个结点treenode移动到另一结点AnItem上并做为AnItem的child，按照文档说明，只需这样做
TreeNode.moveto(AnItem,nrAddChild);
但实际上，在Delphi 4中，假如anode原来没有child的话，这条语句将不做任何事情。
摘要：金凤霞
----delphi为用户提供了一个方便的绘图环境,即某些控件的canvas属性(画布)。用户可以把某些控件的表面作为一张画布,在上面绘制各种图形或显示图像,但在canvas的使用过程中少不了一个特殊对象,那就是矩形rect,灵活使用它会完成很多特殊的功能,为delphi编制的windows程序增加活力。
rect的特点
----rect既是一个特殊的数据结构，又是一个函数,它的作用就是......
摘要：请看下面的代码：listview的columns属性加4个列项，viewstyle属性设为vsreport,smallimage属性对应imagelist。imagelist加载图标。query1对应与parts.db表。
这段代码能实现升序排列，降序你稍作改动即可。如果是按字段数据类型排序则可用sql语句实现。另外这段代码可实现响应双击第一列下的图标。
unit unit1;
int......
Delphi 4中TTreeView的bug假设我们要将某个结点treenode移动到另一结点anitem上并做为anitem的child,按照文档说明,只需这样做
treenode.moveto(anitem,nraddchild); 【程序编程相关:
利用极品五笔刷QB程序原代码
】 【推荐阅读:
[函数]function CheckUr】
但实际上,在delphi 4中,假如anode原来没有child的话,这条语句将不做任何事情.折衷的办法是 【扩展信息:
【我爱DELPHI，我学XML】DAY 】
tempnode:=topictv.items.addchild(anitem,);
treenode.moveto(tempnode, nainsert);
tempnode.free;
在tipexplr程序的源码中,关于实现同样操作,它指出,delphi的ttreeview有bug,并提供了自己的解决方法（见下）,但这只能在delphi 3中通过,在delphi 4中,只能用我的上面的方法.
attachmode := naaddchild; { add tip as a child of category }
{ note: adding the temporary node is a work around to a bug }
{ that exists in the treeview component when moving a }
{ node to a another node that doesnt have any children }
...
下一页 摘要： 一、引言
在delphi开发环境中，文字的输出效果一般都是头上脚下的"正统"字符，如何输出带有一定倾斜角度的文字以达到特殊的显示效果呢？笔者在制作公章辅助设计软件过程中，通过windows图形设备接口函数实现了文字呈辐射状分布的功能。
windows图形设备接口(graphics device interface)是windows系统中的图形核心模块，以gdi.......
