---- 一.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; 

//一般将其父控件设置为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组件，显示设备利用率


转自：  编程联盟