---- 一.Delphi中樹型控制項的使用技巧
---- 我們都知道，開發者主要用Delphi來開發資料庫管理軟體，正因如此，樹型控制項的使用最好與資料庫連結。 Delphi提供了一個樹型控制TTreeView，可以用來描述複雜的層次關係。
---- 1.樹節點資訊的儲存與載入
---- 常用的方法是用樹控件的LoadFromFile和SavetoFile方法，實現樹控件和檔案之間的交互；或用Assign方法實現樹控件和DBMemo，也就是和資料庫間的交互。此方法的優點是程式設計相對簡單，缺點是樹控制的實際節點數可能會很大，對於"大樹"，每次載入和儲存的資料量會加大，將降低速度，增大系統開銷，造成數據冗餘。另一種方法，就是只在樹上產生"看得見"的節點，沒有專門記錄全部樹節點結構的檔案或資料庫字段，而將樹節點結構分散在資料庫的每一個記錄中。
---- 具體方法是：建立一個資料庫，欄位根據實際業務而定，其中必然有一個欄位的資訊將在樹型控制項的節點上顯示，另外還要一個欄位來保存節點的惟一標識號，該識別號由長度相等的兩部分組成，前段表示當前節點的父節點號，後段表示當前節點的節點號，此標識號相當於一個"鍊錶"，記錄了樹上節點的結構。此方法的優點：用戶操作"大樹"時，一般不會展開所有的節點，而只用到有限的一部分，同時只能從樹根一層一層地展開，該法只在樹上產生"看得見"的節點，所以，儲存和載入"大樹"的速度快，資料量小，系統開銷和資料冗餘較小。缺點：程式設計較複雜，但可以結合此方法編成新的樹控件，將大大提高程式效率。值得注意的是，ID號碼必須惟一，所以在程式設計中如何合理產生ID尤為重要。
---- 2.資料庫結構範例
---- 建立一個資料庫，為簡化程序，我只建立兩個資料庫字段，定義如下：
欄位名類型長度
TextC10
LongIDC6
---- LongID字段實際上由兩段組成，每一段3位，LongID只能表示1000筆記錄。將LongID定義為索引字段，存為c: esttree ree.dbf。編輯該DBF文件，新建一筆記錄，Text欄位設為TOP，LongID欄位設為"000"(3個"0"前為三個空格)。
---- 3.建立示範程序
---- 在Form1上放置TreeView1、Table1、PopupMenu1、Edit1、Edit2。 TreeView1的PopupMenu屬性設為PopupMenu1；Table1的DataBaseName屬性設為c: esttree，TableName屬性設為tree.dbf，IndexFieldNames屬性設為LongID；為PopupMenu1加選單項Add1和Del1，Caption分別為Add和Del；Edit1來輸入新節點的Text屬性值，Edit2用來輸入新節點的3位ID號碼。存為c: esttree reeunit.pas和c: esttree esttree.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;
---- 註: aQ為一記錄型二維陣列,定義如下:
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) 或 (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元件，顯示裝置使用率(略)