摘要：
procedure tform1.button1click(sender: tobject); var i: ^integer; begin new(i); i^ := 5; dispose(i); edit1.text := inttostr(i^);//显示5 i^ := 6; // 为什么在dispose(i)之后执行它居然不会报错？ edit2.text := inttostr(i......
摘要：
当我们在属性窗口中给控件设定属性值时，下面会有提示，如设置控件的name属性时，下面会提示：指示代码中用来标识该对象的名称，那么如何设置自定义控件的新添加属性的提示项呢？因为默认的提示是该控件该属性的名称。
......
如何给自定义控件性设置图标
当我们创建一个自定义控件时，在工具箱中默认图标是一个齿轮，如何指定自定义控件的图标呢？
NO.1 作者： coollzh
[ToolBoxBitmap("c:\MyPicture.bmp")]
试试用这个属性
摘要：
以下一些不重要的地方我省略了。 type items = ...;//省略了 pointer = ^queue; queue = record data: items; next: pointer; end; var front,rear: pointer; procedure outqueue(var x: items); //出队过程 var p: pointer; begin ......
