http://tech.sina.com.cn 2000/10/18 软件世界 吴泽平
一.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:Pstr;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: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;p: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 p: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;
file://一般将其父控件设置为Self,如果不设置Parent的值，
则控件不会在屏幕
file://显示出来
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; file://Shape控件数组行数
Columns:=8; // Shape控件数组列数
RowSpace:=20; // Shape控件行间距
ChartsHeight:=20; // Shape控件高度
SetLength(ShapeChart,Rows,Columns);
file://设置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; file://此行必不可少,
否则Shape控件在屏幕显示不出
Shape:=stRectangle; // Shape控件形状为矩形
Top:=45+i*(RowSpace+ChartsHeight);
Left:=Round(180+Q[i,j].StartTime);
file://因Q[i,j].StartTime为实数,故需进行四舍五入取整
Width:=Round(Q[i,j].Value)
Height:=ChartsHeight;
Brush.Color:=RandomColor;
file://自定义函数，说明附后
Brush.Style:=bsSolid; file://设置填充方式
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; file://设置形状为三维条形图
NewSeries[i]:=SeriesClass.Create(Self);
NewSeries[i].ParentChart:=MachinesBurthenCharts;
NewSeries[i].Clear;
Burthen:=MachineBurthen[i];
Burthen:=Round(Burthen*100)/100; file://只取小数点后两位数字
NewSeries[i].add(Burthen,'',NewSeries[i].SeriesColor);
end;
end;
注：
(a).MachineBurthen[i]为一实型数组，其值为对应设备的利用率，已
在另一函数中计算得到；
(b). MachinesBurthenCharts为TChart控件，在type段说明。
3.程序运行结果显示
(1).动态生成Shape控件，显示零件排产计划图(略)
(2).动态生成Chart控件的ChartSeries组件，显示设备利用率(略)
