DELPHI自己做控件

DELPHI自己做控件？

但是要编写控件，则必须使用包(package)。从File菜单中选择New，新建一个Package，这就是存放和安装控件用的包。然后单击Package窗口中的Add按钮，添加一个元件(Unit)。　　在弹出的对话框最上方选择New Component。因为一个控件的所有属性、方法、事件不可能都由自己编，所以就需要选择祖先类（或者叫做"父类"或"基类"），然后再在其上面添加自己的属性、方法、事件。在Ancestor type后的下拉框中选择所需的祖先类。由于编写可视化控件必须要画图，所以选择TGraphicControl作为祖先类。再在Class Name框中输入新控件（类）的名称，一般以"T"开头。Palette Page是用来选择新控件在Delphi的窗口中的控件页面名称，例如"Standard"，这个可以自己取。在Unit File Name中添好新控件文件的路径及文件名，单击OK按钮。新的控件便加入了。现在可以为该控件编写代码了。　　下面以编写一个可以自定义图片的滚动条为例，说明编写可视化控件的方法。　　按照上面的方法，选择TGraphicControl为祖先类，新控件的名称是TPigHorizontalScroller（小猪水平滚动条）。选择好文件路径和文件名后，单击OK按钮，开始编写代码。　　每一个控件，都会被创建（Create）和删除（Destroy），所以必须首先编写这两个过程。对于控件中的每一个过程，都必须在前面先定义，然后再在后面编写。定义的过程或属性有三种：一、在private后定义的是属于控件内部使用的，使用该控件的人无法看到；二、在protected后定义的一般是看不到的，只在别人使用该控件作为祖先类编写其它控件时才可见；三、在public后定义的只允许别人在程序中调用；四、在published后定义的可以在属性窗口（Object Inspector）中看到。由于创建和删除过程除了在编程过程中建立控件时自动执行外，还可能在程序运行过程中动态创建控件时被调用，所以把它定义在public后⑴。（该序号表示次步骤在所附源程序中的代码的位置，下同）现在也许还不知到应该在这两个过程中编写什么，如何去编。我们在下面将会讲到。　我们首先为这个控件添加一些属性。我们定义一个Max属性用于设置或读取滚动条的最大值。因为在程序中一般不直接使用属性，所以要定义一个变量，和该属性对应起来，一边修改或读取其值。因为它只在控件内部使用，所以我们把它定义在private后⑵。（一般与属性相关联的变量都以"F"开头，例如FMax）定义好变量后，再定义属性。这个属性需要再Object Inspector窗口中可见，所以把它定义再published后⑶。定义的语法是：　　property