L
lili365
Unregistered / Unconfirmed
GUEST, unregistred user!
各位大侠我最近要作一个于用TREEVIEW与数据库连接，进行增加、删除、修改等操作
我从DEMO中没有找到这方面的例子，请提供一个信息或帮助
我从DEMO中没有找到这方面的例子，请提供一个信息或帮助
L
lili365
Unregistered / Unconfirmed
GUEST, unregistred user!
没有帮忙的？！分数太少？
C
cxz9
Unregistered / Unconfirmed
GUEST, unregistred user!
给你 一篇文章：
---- 一.delphi中树型控件的使用技巧
---- 我们都知道，开发者主要用delphi来开发数据库管理软件，正因如此，树型控件的使用最好与数据库联系起来。delphi提供了一个树型控件ttreeview，可以用来描述复杂的层次关系。
---- 1.树节点信息的存储和加载
---- 常用的方法是用树控件的 loadfromfile和savetofile方法，来实现树控件和文件之间的交互；或用assign方法实现树控件和dbmemo，也就是和数据库间的交互。该方法的优点是编程相对简单，缺点是树控件的实际节点数可能会很大，对于"大树"，每次加载和存储的数据量会加大，将降低速度，增大系统开销，造成数据冗余。另一种方法，就是只在树上产生"看得见"的节点，没有专门记录全部树节点结构的文件或数据库字段，而将树节点结构分散在数据库的每一个记录中。
---- 具体方法是：创建一个数据库，字段根据实际业务而定，其中必然有一个字段的信息将在树型控件的节点上显示，另外还要一个字段来保存节点的惟一标识号，该标识号由长度相等的两部分组成，前段表示当前节点的父节点号，后段表示当前节点的节点号，此标识号相当于一个"链表"，记录了树上节点的结构。该方法的优点：用户操作"大树"时，一般不会展开所有的节点，而只用到有限的一部分，同时只能从树根一层一层地展开，该法只在树上产生"看得见"的节点，所以，存储和加载"大树"的速度快，数据量小，系统开销和数据冗余较小。缺点：编程较复杂，但可以结合该方法编成一个新的树控件，将大大提高编程效率。值得注意的是，id号必须惟一，所以在编程中如何合理产生id尤为重要。
---- 2.数据库结构示例
---- 创建一个数据库，为简化程序，我只创建两个数据库字段，定义如下：
字段名 类型 长度
text c 10
longid c 6
---- longid字段实际上由两段组成，每一段3位，longid只能表示1000条记录。将longid定义为索引字段，存为c:/testtree/tree.dbf。编辑该dbf文件，新建一条记录，text字段设为top，longid字段设为"000"(3个"0"前为三个空格)。
---- 3.创建演示程序
---- 在form1上放置treeview1、table1、popupmenu1、edit1、edit2。treeview1的popupmenu属性设为popupmenu1；table1的databasename属性设为c:/testtree，tablename属性设为tree.dbf，indexfieldnames属性设为longid；为popupmenu1加选单项add1和del1，caption分别为add和del；edit1用来输入新节点的text属性值，edit2用来输入新节点的3位id号。存为c:/testtree/treeunit.pas和c:/testtree/testtree.dpr。在treeunit.pas的type关键字后加入一行：pstr:^string;{pstr为字符串指针} 为form1的oncreate事件添加代码：
procedure tform1.formcreate(sender: tobject);
var p
str;node:ttreenode;
begin
with table1,treeview1 do
begin
open;
first;
new(p);{为指针p分配内存}
p^:=fieldbyname(′longid′).asstring;
node:=items.addchildobject(nil,fieldbyname
(′text′).asstring,p);
if hassubindbf(node) then items
.addchildobject(node,′ ′,nil);{有子节点则加一个空子节点}
end;
end;
---- hassubindbf为自定义函数，自变量为node，检查节点node有无子节点，有则返回true，反之返回false，并在tform1的类定义里加入原型声明(其它自定义函数的原型也在tform1的类定义里声明，不另作解释)，函数代码如下：
function tform1.hassubindbf(node:ttreenode):boolean;
begin
with table1 do
begin
table1.findnearest([copy(pstr(node.data)^,4,3)＋′000′]);
result:=copy(fieldbyname(′longid′).
asstring,1,3)=copy(pstr(node.data)^,4,3);
{如数据库里当前记录的longid字段内容的前3位和
节点node的data的后3位相同，则node应该有子节点}
end;
end;
为treeview1控件的ondeletion事件添加代码，需要指出的是，
不仅调用delete方法可以触发ondeletion事件，而且当树控件本身被释放前，
也触发ondeletion事件，所以，在此处加入dispose(node.data)会很"安全"：
procedure tform1.treeview1deletion
(sender: tobject; node: ttreenode);
begin
dispose(node.data);{释放节点数据内存}
end;
为add1选单项的onclick事件添加代码如下：
procedure tform1.add1click(sender: tobject);
var pstr;tmpstr:string;i:integer;
begin
try
strtoint(edit2.text);
tmpstr:=edit2.text;{注：在实用中，必须用更好的方法来产生id}
except;
showmessage(′重新输入edit2的内容′);
abort;
end;
with treeview1 do
begin
new(p);
p^:=copy(pstr(selected.data)^,4,3)＋tmpstr;
items.addchildobject(selected,edit1.text,p);
end;
with table1 do{ 在数据库里添加记录 }
begin
append;
fieldbyname(′text′).asstring:=edit1.text;
fieldbyname(′longid′).asstring:=p^;
post;
end;
tmpstr:=inttostr(strtoint(tmpstr)＋1);
for i:=length(tmpstr) to 2 do tmpstr:=′0′＋tmpstr;
edit2.text:=tmpstr;
end;
为del1菜单项的onclick事件添加代码如下：
procedure tform1.del1click(sender: tobject);
var dellist:tstringlist;longid,nsublongid:string;
begin
dellist:=tstringlist.create;
dellist.sorted:=true;
dellist.add(pstr(treeview1.selected.data)^);
while dellist.count>0 do
begin
longid:=dellist.strings[0];
dellist.delete(0);
table1.setkey;
table1.fieldbyname(′longid′).asstring:=longid;
if table1.gotokey then table1.delete;
if hassubindbf(treeview1.selected) then
begin
nsublongid:=table1.fieldbyname(′longid′).asstring;
while (copy(nsublongid,1,3)=copy
(longid,4,3))and(not table1.eof) do
begin
dellist.add(nsublongid);
table1.next;
nsublongid:=table1.fieldbyname(′longid′).asstring;
end;
end;
end;
dellist.free;
treeview1.items.delete(treeview1.selected);
end;
为treeview1的onexpanding事件添加代码：
procedure tform1.treeview1expanding
(sender: tobject; node: ttreenode;
var allowexpansion: boolean);
var tmpnode:ttreenode;nsublongid:
string;pstr;bm:tbookmark;
begin
with table1,treeview1 do
begin
items.beginupdate;
setkey;
fieldbyname(′longid′).asstring:=pstr(node.data)^;
if not gotokey then items.delete(node)
else
begin
tmpnode:=node.getfirstchild;
if (tmpnode.text=′ ′)and(tmpnode.data=nil) then
begin
tmpnode.delete;
if hassubindbf(node) then
begin
nsublongid:=fieldbyname(′longid′).asstring;
while (copy(nsublongid,1,3)=copy(pstr
(node.data)^,4,3))and(not eof) do
begin
new(p);
p^:=fieldbyname(′longid′).asstring;
bm:=getbookmark;
tmpnode:=items.addchildobject(node,
fieldbyname(′text′).asstring,p);
if hassubindbf(tmpnode) then items.
addchildobject(tmpnode,′ ′,nil);
gotobookmark(bm);
freebookmark(bm);
next;
nsublongid:=fieldbyname(′longid′).asstring;
end; end; end;
end;
items.endupdate;
end;
end;
---- 以上简要谈了谈数据库的树状显示的基本方法，另外，编辑树上节点的text属性的同时对数据库进行修改、同一数据库在多用户同时操作时数据库以及树的一致性、树上节点的拷贝与复制等就不再赘述，读者可自行完善。
---- 二.ip控件的使用
---- 在网络程序中，我们常常碰到需要用户输入ip地址的情况。然而delphi并没有为我们提供可以用于输入ip串的控件，这样我们只好用tedit控件（单行文本框）来接受用户输入的ip串。但是，使用tedit来输入ip串并不是一个好主意，因为处理起来非常不便。事实上，在我们的身旁有一个专门用来输入ip串的windows控件。ip控件会拒绝非法的ip串（在每个部分只能输入0..255之间的数字）；它让你可以轻松地获取控件中的ip串所对应的ip值（32位整数），这省去了ip串和ip值之间相互转换的麻烦；此外，你还能限制ip控件中所能输入的ip的范围。本节向大家介绍如何在我们的delphi程序中使用windows的ip控件。
---- windows中有两个非常重要的动态联结库：commctrl.dll和comctl32.dll，它们是windows的自定义控制库（windows common controls）。自定义控制库中包含了许多常用的windows控件，如statusbar，coolbar，hotkey等；在delphi中，这些控件大多数都已被包装成可视化控件了。在microsoft推出internet explorer 3之后，自定义控制库中新增了一些控件，其中就包括windows的ip控件（ip address edit control）。
---- 1. 初始化windows自定义控制库
---- windows提供了两个api函数，initcommoncontrols和initcommoncontrolsex，用来初始化自定义控制库。从名字我们不难看出这两个api函数的关系：后者是前者的增强。如果你希望在程序中使用ip控件，你必须用initcommoncontrolsex来完成对自定义控制库以及类的初始化。函数initcommoncontrolsex的原型如下（pascal语法）：
... ...
创建ip控件
... ...
使用ip控件。 在程序中，我们通过向ip控件发送消息来与它通讯。
ip控件可以响应的消息有以下6个，这些消息及它们的含义，见下表：
... ...
若想要获取ip控件中ip串所对应的ip值，你应该向ip控件发送
ipm_getaddress消息，并且需要把一个32位整数的地址作为
sendmessage的最后一个参数。
... ...
---- 2. ip控件的通知消息
---- 当ip串被改动后或者输入焦点发生了转移，ip控件就会向它的父窗口发送通知消息ipn_fieldchanged。在大多数情况下，我们都可以忽略此通知消息。以下是处理通知消息ipn_fieldchanged的一个示例：
procedure tform1.wndproc(var msg: tmessage);
var pnmhdr;
begin
inherited;
if msg.msg=wm_notify
then begin
p:=pointer(msg.lparam);
if p^.code=ipn_fieldchanged
then begin
{…
处理ip控件的ipn_fieldchanged通知消息
…}
end;
end;
end;
---- 三.动态生成控件的方法及应用
---- 1.delphi中生成控件的两种方法
---- (1). form(表单)设计中生成控件
---- 在进行form设计时，直接在控件工具箱选择所需控件，再设置其属性与响应事件，这种方法比较常见。
---- (2).程序中动态生成控件
---- 有时候，我们需要在程序运行时动态生成控件，这样做有两大优点：一是可以增加程序的灵活性；二是如果生成控件的多少与程序中间运行结果相关，显然方法一是无法的实现的，必须用程序中动态生成方法。
---- 程序中动态生成控件的方法分为三步，首先，定义生成的控件类型，再用create函数生成控件，最后对控件的相关属性赋值。以tbutton控件为例，步骤如下：
---- a. 定义控件类型
var
button1:tbutton;
---- b.生成控件
button1:=tbutton. create(self);
button1.parent:=self;
//一般将其父控件设置为self,如果不设置parent的值，
则控件不会在屏幕
//显示出来
---- c.设置其它属性及定义相关事件响应函数，如caption,left,top,height,width,visible,enabled,hint和onclick事件响应函数等。
---- 2.动态生成控件方法的应用
---- 在开发生产调度与管理系统中，需要动态生成排产计划图，以甘特图表示，应用shape控件来显示零件的加工状况(每道工序的加工开始时间与结束时间)是非常适合的。应用chart控件，对加工设备利用率以三维直方图显示，非常直观。现分别将在程序中动态生成shape控件和chart控件的过程加以说明。
---- (1).动态生成shape控件显示排产计划图(甘特图)
procedure tcreatemulticharts.proccreatecharts;
var
i,j,rows,columns,rowspace,chartsheight:integer;
shapechart:array of array of tshape;
begin
rows:=16; //shape控件数组行数
columns:=8; // shape控件数组列数
rowspace:=20; // shape控件行间距
chartsheight:=20; // shape控件高度
setlength(shapechart,rows,columns);
//设置shapechart数组大小
for i:=0 to rows do
for j:=0 to columns do
begin
shapechart［i］［j］:=tshape.create(self);
with shapechart［i,j］ do
begin
parent:=self; //此行必不可少,
否则shape控件在屏幕显示不出
shape:=strectangle; // shape控件形状为矩形
top:=45+i*(rowspace+chartsheight);
left:=round(180+q［i,j］.starttime);
//因q［i,j］.starttime为实数,故需进行四舍五入取整
width:=round(q［i,j］.value)
height:=chartsheight;
brush.color:=randomcolor;
//自定义函数，说明附后
brush.style:=bssolid; //设置填充方式
enabled:=true;
end;
end;
end;
---- 注: a.q为一记录型二维数组,定义如下:
type
tempdata=record
value:real;
starttime:real;
end;
q:array of array of tempdata
并且在另一过程已对q的分量进行赋值。
---- b.为了区分不同的零件，shape以不同颜色显示，此时，调用了函数randomcolor。该函数为：
function tcreatemulticharts.randomcolor;
var
red,green,blue:byte;
begin
red:=random(255);
green:=random(255);
blue:=random(255);
result:=red or (green shl 8) or (blue shl 16);
end;
---- (2).动态生成charts控件的chartseries组件，显示设备利用率
procedure tformmultimachinesburthen.
showmachineburthencharts;
var
i:integer;
burthen:real;
seriesclass:tchartseriesclass;
newseries:array of tchartseries;
begin
setlength(newseries,createmulticharts.rows);
machinesburthencharts.height:=200;
machinesburthencharts.width:=550;
for i:=0 to createmulticharts.rows do
begin
seriesclass:=tbarseries; //设置形状为三维条形图
newseries［i］:=seriesclass.create(self);
newseries［i］.parentchart:=machinesburthencharts;
newseries［i］.clear;
burthen:=machineburthen［i］;
burthen:=round(burthen*100)/100; //只取小数点后两位数字
newseries［i］.add(burthen,'',newseries［i］.seriescolor);
end;
end;
---- 注： (a).machineburthen［i］为一实型数组，其值为对应设备的利用率，已在另一函数中计算得到；
---- (b). machinesburthencharts为tchart控件，在type段说明。
---- 3.程序运行结果显示
---- (1).动态生成shape控件，显示零件排产计划图(略)
---- (2).动态生成chart控件的chartseries组件，显示设备利用率(略)
---- 一.delphi中树型控件的使用技巧
---- 我们都知道，开发者主要用delphi来开发数据库管理软件，正因如此，树型控件的使用最好与数据库联系起来。delphi提供了一个树型控件ttreeview，可以用来描述复杂的层次关系。
---- 1.树节点信息的存储和加载
---- 常用的方法是用树控件的 loadfromfile和savetofile方法，来实现树控件和文件之间的交互；或用assign方法实现树控件和dbmemo，也就是和数据库间的交互。该方法的优点是编程相对简单，缺点是树控件的实际节点数可能会很大，对于"大树"，每次加载和存储的数据量会加大，将降低速度，增大系统开销，造成数据冗余。另一种方法，就是只在树上产生"看得见"的节点，没有专门记录全部树节点结构的文件或数据库字段，而将树节点结构分散在数据库的每一个记录中。
---- 具体方法是：创建一个数据库，字段根据实际业务而定，其中必然有一个字段的信息将在树型控件的节点上显示，另外还要一个字段来保存节点的惟一标识号，该标识号由长度相等的两部分组成，前段表示当前节点的父节点号，后段表示当前节点的节点号，此标识号相当于一个"链表"，记录了树上节点的结构。该方法的优点：用户操作"大树"时，一般不会展开所有的节点，而只用到有限的一部分，同时只能从树根一层一层地展开，该法只在树上产生"看得见"的节点，所以，存储和加载"大树"的速度快，数据量小，系统开销和数据冗余较小。缺点：编程较复杂，但可以结合该方法编成一个新的树控件，将大大提高编程效率。值得注意的是，id号必须惟一，所以在编程中如何合理产生id尤为重要。
---- 2.数据库结构示例
---- 创建一个数据库，为简化程序，我只创建两个数据库字段，定义如下：
字段名 类型 长度
text c 10
longid c 6
---- longid字段实际上由两段组成，每一段3位，longid只能表示1000条记录。将longid定义为索引字段，存为c:/testtree/tree.dbf。编辑该dbf文件，新建一条记录，text字段设为top，longid字段设为"000"(3个"0"前为三个空格)。
---- 3.创建演示程序
---- 在form1上放置treeview1、table1、popupmenu1、edit1、edit2。treeview1的popupmenu属性设为popupmenu1；table1的databasename属性设为c:/testtree，tablename属性设为tree.dbf，indexfieldnames属性设为longid；为popupmenu1加选单项add1和del1，caption分别为add和del；edit1用来输入新节点的text属性值，edit2用来输入新节点的3位id号。存为c:/testtree/treeunit.pas和c:/testtree/testtree.dpr。在treeunit.pas的type关键字后加入一行：pstr:^string;{pstr为字符串指针} 为form1的oncreate事件添加代码：
procedure tform1.formcreate(sender: tobject);
var p
str;node:ttreenode;begin
with table1,treeview1 do
begin
open;
first;
new(p);{为指针p分配内存}
p^:=fieldbyname(′longid′).asstring;
node:=items.addchildobject(nil,fieldbyname
(′text′).asstring,p);
if hassubindbf(node) then items
.addchildobject(node,′ ′,nil);{有子节点则加一个空子节点}
end;
end;
---- hassubindbf为自定义函数，自变量为node，检查节点node有无子节点，有则返回true，反之返回false，并在tform1的类定义里加入原型声明(其它自定义函数的原型也在tform1的类定义里声明，不另作解释)，函数代码如下：
function tform1.hassubindbf(node:ttreenode):boolean;
begin
with table1 do
begin
table1.findnearest([copy(pstr(node.data)^,4,3)＋′000′]);
result:=copy(fieldbyname(′longid′).
asstring,1,3)=copy(pstr(node.data)^,4,3);
{如数据库里当前记录的longid字段内容的前3位和
节点node的data的后3位相同，则node应该有子节点}
end;
end;
为treeview1控件的ondeletion事件添加代码，需要指出的是，
不仅调用delete方法可以触发ondeletion事件，而且当树控件本身被释放前，
也触发ondeletion事件，所以，在此处加入dispose(node.data)会很"安全"：
procedure tform1.treeview1deletion
(sender: tobject; node: ttreenode);
begin
dispose(node.data);{释放节点数据内存}
end;
为add1选单项的onclick事件添加代码如下：
procedure tform1.add1click(sender: tobject);
var p
str;tmpstr:string;i:integer;begin
try
strtoint(edit2.text);
tmpstr:=edit2.text;{注：在实用中，必须用更好的方法来产生id}
except;
showmessage(′重新输入edit2的内容′);
abort;
end;
with treeview1 do
begin
new(p);
p^:=copy(pstr(selected.data)^,4,3)＋tmpstr;
items.addchildobject(selected,edit1.text,p);
end;
with table1 do{ 在数据库里添加记录 }
begin
append;
fieldbyname(′text′).asstring:=edit1.text;
fieldbyname(′longid′).asstring:=p^;
post;
end;
tmpstr:=inttostr(strtoint(tmpstr)＋1);
for i:=length(tmpstr) to 2 do tmpstr:=′0′＋tmpstr;
edit2.text:=tmpstr;
end;
为del1菜单项的onclick事件添加代码如下：
procedure tform1.del1click(sender: tobject);
var dellist:tstringlist;longid,nsublongid:string;
begin
dellist:=tstringlist.create;
dellist.sorted:=true;
dellist.add(pstr(treeview1.selected.data)^);
while dellist.count>0 do
begin
longid:=dellist.strings[0];
dellist.delete(0);
table1.setkey;
table1.fieldbyname(′longid′).asstring:=longid;
if table1.gotokey then table1.delete;
if hassubindbf(treeview1.selected) then
begin
nsublongid:=table1.fieldbyname(′longid′).asstring;
while (copy(nsublongid,1,3)=copy
(longid,4,3))and(not table1.eof) do
begin
dellist.add(nsublongid);
table1.next;
nsublongid:=table1.fieldbyname(′longid′).asstring;
end;
end;
end;
dellist.free;
treeview1.items.delete(treeview1.selected);
end;
为treeview1的onexpanding事件添加代码：
procedure tform1.treeview1expanding
(sender: tobject; node: ttreenode;
var allowexpansion: boolean);
var tmpnode:ttreenode;nsublongid:
string;p
str;bm:tbookmark;begin
with table1,treeview1 do
begin
items.beginupdate;
setkey;
fieldbyname(′longid′).asstring:=pstr(node.data)^;
if not gotokey then items.delete(node)
else
begin
tmpnode:=node.getfirstchild;
if (tmpnode.text=′ ′)and(tmpnode.data=nil) then
begin
tmpnode.delete;
if hassubindbf(node) then
begin
nsublongid:=fieldbyname(′longid′).asstring;
while (copy(nsublongid,1,3)=copy(pstr
(node.data)^,4,3))and(not eof) do
begin
new(p);
p^:=fieldbyname(′longid′).asstring;
bm:=getbookmark;
tmpnode:=items.addchildobject(node,
fieldbyname(′text′).asstring,p);
if hassubindbf(tmpnode) then items.
addchildobject(tmpnode,′ ′,nil);
gotobookmark(bm);
freebookmark(bm);
next;
nsublongid:=fieldbyname(′longid′).asstring;
end; end; end;
end;
items.endupdate;
end;
end;
---- 以上简要谈了谈数据库的树状显示的基本方法，另外，编辑树上节点的text属性的同时对数据库进行修改、同一数据库在多用户同时操作时数据库以及树的一致性、树上节点的拷贝与复制等就不再赘述，读者可自行完善。
---- 二.ip控件的使用
---- 在网络程序中，我们常常碰到需要用户输入ip地址的情况。然而delphi并没有为我们提供可以用于输入ip串的控件，这样我们只好用tedit控件（单行文本框）来接受用户输入的ip串。但是，使用tedit来输入ip串并不是一个好主意，因为处理起来非常不便。事实上，在我们的身旁有一个专门用来输入ip串的windows控件。ip控件会拒绝非法的ip串（在每个部分只能输入0..255之间的数字）；它让你可以轻松地获取控件中的ip串所对应的ip值（32位整数），这省去了ip串和ip值之间相互转换的麻烦；此外，你还能限制ip控件中所能输入的ip的范围。本节向大家介绍如何在我们的delphi程序中使用windows的ip控件。
---- windows中有两个非常重要的动态联结库：commctrl.dll和comctl32.dll，它们是windows的自定义控制库（windows common controls）。自定义控制库中包含了许多常用的windows控件，如statusbar，coolbar，hotkey等；在delphi中，这些控件大多数都已被包装成可视化控件了。在microsoft推出internet explorer 3之后，自定义控制库中新增了一些控件，其中就包括windows的ip控件（ip address edit control）。
---- 1. 初始化windows自定义控制库
---- windows提供了两个api函数，initcommoncontrols和initcommoncontrolsex，用来初始化自定义控制库。从名字我们不难看出这两个api函数的关系：后者是前者的增强。如果你希望在程序中使用ip控件，你必须用initcommoncontrolsex来完成对自定义控制库以及类的初始化。函数initcommoncontrolsex的原型如下（pascal语法）：
... ...
创建ip控件
... ...
使用ip控件。 在程序中，我们通过向ip控件发送消息来与它通讯。
ip控件可以响应的消息有以下6个，这些消息及它们的含义，见下表：
... ...
若想要获取ip控件中ip串所对应的ip值，你应该向ip控件发送
ipm_getaddress消息，并且需要把一个32位整数的地址作为
sendmessage的最后一个参数。
... ...
---- 2. ip控件的通知消息
---- 当ip串被改动后或者输入焦点发生了转移，ip控件就会向它的父窗口发送通知消息ipn_fieldchanged。在大多数情况下，我们都可以忽略此通知消息。以下是处理通知消息ipn_fieldchanged的一个示例：
procedure tform1.wndproc(var msg: tmessage);
var p
nmhdr; begin
inherited;
if msg.msg=wm_notify
then begin
p:=pointer(msg.lparam);
if p^.code=ipn_fieldchanged
then begin
{…
处理ip控件的ipn_fieldchanged通知消息
…}
end;
end;
end;
---- 三.动态生成控件的方法及应用
---- 1.delphi中生成控件的两种方法
---- (1). form(表单)设计中生成控件
---- 在进行form设计时，直接在控件工具箱选择所需控件，再设置其属性与响应事件，这种方法比较常见。
---- (2).程序中动态生成控件
---- 有时候，我们需要在程序运行时动态生成控件，这样做有两大优点：一是可以增加程序的灵活性；二是如果生成控件的多少与程序中间运行结果相关，显然方法一是无法的实现的，必须用程序中动态生成方法。
---- 程序中动态生成控件的方法分为三步，首先，定义生成的控件类型，再用create函数生成控件，最后对控件的相关属性赋值。以tbutton控件为例，步骤如下：
---- a. 定义控件类型
var
button1:tbutton;
---- b.生成控件
button1:=tbutton. create(self);
button1.parent:=self;
//一般将其父控件设置为self,如果不设置parent的值，
则控件不会在屏幕
//显示出来
---- c.设置其它属性及定义相关事件响应函数，如caption,left,top,height,width,visible,enabled,hint和onclick事件响应函数等。
---- 2.动态生成控件方法的应用
---- 在开发生产调度与管理系统中，需要动态生成排产计划图，以甘特图表示，应用shape控件来显示零件的加工状况(每道工序的加工开始时间与结束时间)是非常适合的。应用chart控件，对加工设备利用率以三维直方图显示，非常直观。现分别将在程序中动态生成shape控件和chart控件的过程加以说明。
---- (1).动态生成shape控件显示排产计划图(甘特图)
procedure tcreatemulticharts.proccreatecharts;
var
i,j,rows,columns,rowspace,chartsheight:integer;
shapechart:array of array of tshape;
begin
rows:=16; //shape控件数组行数
columns:=8; // shape控件数组列数
rowspace:=20; // shape控件行间距
chartsheight:=20; // shape控件高度
setlength(shapechart,rows,columns);
//设置shapechart数组大小
for i:=0 to rows do
for j:=0 to columns do
begin
shapechart［i］［j］:=tshape.create(self);
with shapechart［i,j］ do
begin
parent:=self; //此行必不可少,
否则shape控件在屏幕显示不出
shape:=strectangle; // shape控件形状为矩形
top:=45+i*(rowspace+chartsheight);
left:=round(180+q［i,j］.starttime);
//因q［i,j］.starttime为实数,故需进行四舍五入取整
width:=round(q［i,j］.value)
height:=chartsheight;
brush.color:=randomcolor;
//自定义函数，说明附后
brush.style:=bssolid; //设置填充方式
enabled:=true;
end;
end;
end;
---- 注: a.q为一记录型二维数组,定义如下:
type
tempdata=record
value:real;
starttime:real;
end;
q:array of array of tempdata
并且在另一过程已对q的分量进行赋值。
---- b.为了区分不同的零件，shape以不同颜色显示，此时，调用了函数randomcolor。该函数为：
function tcreatemulticharts.randomcolor;
var
red,green,blue:byte;
begin
red:=random(255);
green:=random(255);
blue:=random(255);
result:=red or (green shl 8) or (blue shl 16);
end;
---- (2).动态生成charts控件的chartseries组件，显示设备利用率
procedure tformmultimachinesburthen.
showmachineburthencharts;
var
i:integer;
burthen:real;
seriesclass:tchartseriesclass;
newseries:array of tchartseries;
begin
setlength(newseries,createmulticharts.rows);
machinesburthencharts.height:=200;
machinesburthencharts.width:=550;
for i:=0 to createmulticharts.rows do
begin
seriesclass:=tbarseries; //设置形状为三维条形图
newseries［i］:=seriesclass.create(self);
newseries［i］.parentchart:=machinesburthencharts;
newseries［i］.clear;
burthen:=machineburthen［i］;
burthen:=round(burthen*100)/100; //只取小数点后两位数字
newseries［i］.add(burthen,'',newseries［i］.seriescolor);
end;
end;
---- 注： (a).machineburthen［i］为一实型数组，其值为对应设备的利用率，已在另一函数中计算得到；
---- (b). machinesburthencharts为tchart控件，在type段说明。
---- 3.程序运行结果显示
---- (1).动态生成shape控件，显示零件排产计划图(略)
---- (2).动态生成chart控件的chartseries组件，显示设备利用率(略)
