Delphi控件的使用經驗

2019-11-18 18:49:40

字體：大中小

來源：轉載

供稿：網友

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: 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;

　　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;
　　注：