Delphi控件的使用經(jīng)驗(yàn)

2019-11-18 18:49:40

字體：大中小

來(lái)源：轉(zhuǎn)載

供稿：網(wǎng)友

http://tech.sina.com.cn 2000/10/18 軟件世界吳澤平
　　一.Delphi中樹(shù)型控件的使用技巧

　　我們都知道，開(kāi)發(fā)者主要用Delphi來(lái)開(kāi)發(fā)數(shù)據(jù)庫(kù)管理軟件，正因如此，

樹(shù)型控件的使用最好與數(shù)據(jù)庫(kù)聯(lián)系起來(lái)。Delphi提供了一個(gè)樹(shù)型控件

TTreeView，可以用來(lái)描述復(fù)雜的層次關(guān)系。

　　1.樹(shù)節(jié)點(diǎn)信息的存儲(chǔ)和加載

　　常用的方法是用樹(shù)控件的 LoadFromFile和SavetoFile方法，來(lái)實(shí)現(xiàn)樹(shù)

控件和文件之間的交互；或用Assign方法實(shí)現(xiàn)樹(shù)控件和DBMemo，也就是和數(shù)

據(jù)庫(kù)間的交互。該方法的優(yōu)點(diǎn)是編程相對(duì)簡(jiǎn)單，缺點(diǎn)是樹(shù)控件的實(shí)際節(jié)點(diǎn)數(shù)

可能會(huì)很大，對(duì)于“大樹(shù)”，每次加載和存儲(chǔ)的數(shù)據(jù)量會(huì)加大，將降低速度

，增大系統(tǒng)開(kāi)銷，造成數(shù)據(jù)冗余。另一種方法，就是只在樹(shù)上產(chǎn)生“看得見(jiàn)

”的節(jié)點(diǎn)，沒(méi)有專門(mén)記錄全部樹(shù)節(jié)點(diǎn)結(jié)構(gòu)的文件或數(shù)據(jù)庫(kù)字段，而將樹(shù)節(jié)點(diǎn)

結(jié)構(gòu)分散在數(shù)據(jù)庫(kù)的每一個(gè)記錄中。

　　具體方法是：創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)，字段根據(jù)實(shí)際業(yè)務(wù)而定，其中必然有一

個(gè)字段的信息將在樹(shù)型控件的節(jié)點(diǎn)上顯示，另外還要一個(gè)字段來(lái)保存節(jié)點(diǎn)的

惟一標(biāo)識(shí)號(hào)，該標(biāo)識(shí)號(hào)由長(zhǎng)度相等的兩部分組成，前段表示當(dāng)前節(jié)點(diǎn)的父節(jié)

點(diǎn)號(hào)，后段表示當(dāng)前節(jié)點(diǎn)的節(jié)點(diǎn)號(hào)，此標(biāo)識(shí)號(hào)相當(dāng)于一個(gè)“鏈表”，記錄了

樹(shù)上節(jié)點(diǎn)的結(jié)構(gòu)。該方法的優(yōu)點(diǎn)：用戶操作“大樹(shù)”時(shí)，一般不會(huì)展開(kāi)所有

的節(jié)點(diǎn)，而只用到有限的一部分，同時(shí)只能從樹(shù)根一層一層地展開(kāi)，該法只

在樹(shù)上產(chǎn)生“看得見(jiàn)”的節(jié)點(diǎn)，所以，存儲(chǔ)和加載“大樹(shù)”的速度快，數(shù)據(jù)

量小，系統(tǒng)開(kāi)銷和數(shù)據(jù)冗余較小。缺點(diǎn)：編程較復(fù)雜，但可以結(jié)合該方法編

成一個(gè)新的樹(shù)控件，將大大提高編程效率。值得注意的是，ID號(hào)必須惟一，

所以在編程中如何合理產(chǎn)生ID尤為重要。

　　2.數(shù)據(jù)庫(kù)結(jié)構(gòu)示例

　　創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)，為簡(jiǎn)化程序，我只創(chuàng)建兩個(gè)數(shù)據(jù)庫(kù)字段，定義如下：

　　字段名類型長(zhǎng)度

　　Text C 10

　　LongID C 6

　　LongID字段實(shí)際上由兩段組成，每一段3位，LongID只能表示1000條記

錄。將LongID定義為索引字段，存為c: esttree ree.dbf。編輯該DBF文

件，新建一條記錄，Text字段設(shè)為T(mén)OP，LongID字段設(shè)為“000”(3個(gè)“0”

前為三個(gè)空格)。

　　3.創(chuàng)建演示程序

　　在Form1上放置TreeView1、Table1、PopupMenu1、Edit1、Edit2。

TreeView1的PopupMenu屬性設(shè)為PopupMenu1；Table1的DataBaseName屬性設(shè)

為c: esttree，TableName屬性設(shè)為tree.dbf，IndexFieldNames屬性設(shè)為

LongID；為PopupMenu1加選單項(xiàng)Add1和Del1，Caption分別為Add和Del；

Edit1用來(lái)輸入新節(jié)點(diǎn)的Text屬性值，Edit2用來(lái)輸入新節(jié)點(diǎn)的3位ID號(hào)。存

為c: esttree reeunit.pas和c: esttree esttree.dPR。

　　在treeunit.pas的Type關(guān)鍵字后加入一行：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分配內(nèi)存}
　　p^:=FieldByName(′LongID′).AsString;
　　Node:=Items.AddChildObject(nil,FieldByName(′Text′

).AsString,p);
　　if HasSubInDbf(Node) then Items.AddChildObject(Node,′ ′

,nil);{有子節(jié)點(diǎn)則加一個(gè)空子節(jié)點(diǎn)}
　　end;
　　end;

　　HasSubInDbf為自定義函數(shù)，自變量為Node，檢查節(jié)點(diǎn)Node有無(wú)子節(jié)點(diǎn)

，有則返回True，反之返回False，并在TForm1的類定義里加入原型聲明(其

它自定義函數(shù)的原型也在TForm1的類定義里聲明，不另作解釋)，函數(shù)代碼

如下：

　　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);{如數(shù)據(jù)庫(kù)里當(dāng)前記錄的

LongID字段內(nèi)容的前3位和節(jié)點(diǎn)Node的Data的后3位相同，則Node應(yīng)該有子節(jié)

點(diǎn)}
　　end;
　　end;

　　為T(mén)reeView1控件的OnDeletion事件添加代碼，需要指出的是，不僅調(diào)

用Delete方法可以觸發(fā)OnDeletion事件，而且當(dāng)樹(shù)控件本身被釋放前，也觸

發(fā)OnDeletion事件，所以，在此處加入dispose(node.data)會(huì)很“安全”：

　　procedure TForm1.TreeView1Deletion(Sender: TObject; Node:

TTreeNode);

　　begin
　　Dispose(Node.Data);{釋放節(jié)點(diǎn)數(shù)據(jù)內(nèi)存}
　　end;
　　為Add1選單項(xiàng)的OnClick事件添加代碼如下：
　　procedure TForm1.Add1Click(Sender: TObject);
　　var p:pstr;Tmpstr:string;i:integer;
　　begin
　　try
　　StrToInt(Edit2.Text);
　　Tmpstr:=Edit2.Text;{注：在實(shí)用中，必須用更好的方法來(lái)產(chǎn)生ID}
　　except;
　　ShowMessage(′重新輸入Edit2的內(nèi)容′);
　　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{ 在數(shù)據(jù)庫(kù)里添加記錄 }
　　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菜單項(xiàng)的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;
　　為T(mén)reeView1的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;

　　以上簡(jiǎn)要談了談數(shù)據(jù)庫(kù)的樹(shù)狀顯示的基本方法，另外，編輯樹(shù)上節(jié)點(diǎn)的

Text屬性的同時(shí)對(duì)數(shù)據(jù)庫(kù)進(jìn)行修改、同一數(shù)據(jù)庫(kù)在多用戶同時(shí)操作時(shí)數(shù)據(jù)庫(kù)

以及樹(shù)的一致性、樹(shù)上節(jié)點(diǎn)的拷貝與復(fù)制等就不再贅述，讀者可自行完善。

　　二.ip控件的使用

　　在網(wǎng)絡(luò)程序中，我們常常碰到需要用戶輸入IP地址的情況。然而Delphi

并沒(méi)有為我們提供可以用于輸入IP串的控件，這樣我們只好用Tedit控件(單

行文本框)來(lái)接受用戶輸入的IP串。但是，使用Tedit來(lái)輸入IP串并不是一個(gè)

好主意，因?yàn)樘幚砥饋?lái)非常不便。事實(shí)上，在我們的身旁有一個(gè)專門(mén)用來(lái)輸

入IP串的Windows控件。IP控件會(huì)拒絕非法的IP串(在每個(gè)部分只能輸入

0..255之間的數(shù)字)；它讓你可以輕松地獲取控件中的IP串所對(duì)應(yīng)的IP值(32

位整數(shù))，這省去了IP串和IP值之間相互轉(zhuǎn)換的麻煩；此外，你還能限制IP

控件中所能輸入的IP的范圍。本節(jié)向大家介紹如何在我們的Delphi程序中使

用Windows的IP控件。

　　Windows中有兩個(gè)非常重要的動(dòng)態(tài)聯(lián)結(jié)庫(kù)：commctrl.dll和

comctl32.dll，它們是Windows的自定義控制庫(kù)(Windows Common Controls)

。自定義控制庫(kù)中包含了許多常用的Windows控件，如Statusbar，Coolbar

，HotKey等；在Delphi中，這些控件大多數(shù)都已被包裝成可視化控件了。在

Microsoft推出Internet Explorer 3之后，自定義控制庫(kù)中新增了一些控件

，其中就包括Windows的IP控件(IP Address edit control)。

　　1. 初始化Windows自定義控制庫(kù)

　　Windows提供了兩個(gè)API函數(shù)，InitCommonControls和

InitCommonControlsEx，用來(lái)初始化自定義控制庫(kù)。從名字我們不難看出這

兩個(gè)API函數(shù)的關(guān)系：后者是前者的增強(qiáng)。如果你希望在程序中使用IP控件

，你必須用InitCommonControlsEx來(lái)完成對(duì)自定義控制庫(kù)以及類的初始化。

函數(shù)InitCommonControlsEx的原型如下(Pascal語(yǔ)法)：

　　... ...

　　創(chuàng)建IP控件

　　... ...

　　使用IP控件。在程序中，我們通過(guò)向IP控件發(fā)送消息來(lái)與它通訊。IP

控件可以響應(yīng)的消息有以下6個(gè)，這些消息及它們的含義，見(jiàn)下表：

　　... ...

　　若想要獲取IP控件中IP串所對(duì)應(yīng)的IP值，你應(yīng)該向IP控件發(fā)送

IPM_GETADDRESS消息，并且需要把一個(gè)32位整數(shù)的地址作為SendMessage的

最后一個(gè)參數(shù)。

　　... ...

　　2. IP控件的通知消息

　　當(dāng)IP串被改動(dòng)后或者輸入焦點(diǎn)發(fā)生了轉(zhuǎn)移，IP控件就會(huì)向它的父窗口發(fā)

送通知消息IPN_FIELDCHANGED。在大多數(shù)情況下，我們都可以忽略此通知消

息。以下是處理通知消息IPN_FIELDCHANGED的一個(gè)示例：

　　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;

　　三.動(dòng)態(tài)生成控件的方法及應(yīng)用

　　1.Delphi中生成控件的兩種方法

　　(1). Form(表單)設(shè)計(jì)中生成控件

　　在進(jìn)行Form設(shè)計(jì)時(shí)，直接在控件工具箱選擇所需控件，再設(shè)置其屬性與

響應(yīng)事件，這種方法比較常見(jiàn)。

　　(2).程序中動(dòng)態(tài)生成控件

　　有時(shí)候，我們需要在程序運(yùn)行時(shí)動(dòng)態(tài)生成控件，這樣做有兩大優(yōu)點(diǎn)：一

是可以增加程序的靈活性；二是如果生成控件的多少與程序中間運(yùn)行結(jié)果相

關(guān)，顯然方法一是無(wú)法的實(shí)現(xiàn)的，必須用程序中動(dòng)態(tài)生成方法。

　　程序中動(dòng)態(tài)生成控件的方法分為三步，首先，定義生成的控件類型，再

用Create函數(shù)生成控件，最后對(duì)控件的相關(guān)屬性賦值。以TButton控件為例

，步驟如下：

　　a. 定義控件類型

　　var

　　Button1:TButton;

　　b.生成控件

　　Button1:=TButton. Create(self);

　　Button1.Parent:=Self;

　　file://一般將其父控件設(shè)置為Self,如果不設(shè)置Parent的值，

　　則控件不會(huì)在屏幕

　　file://顯示出來(lái)

　　c.設(shè)置其它屬性及定義相關(guān)事件響應(yīng)函數(shù)，如

Caption,Left,Top,Height,Width,Visible,Enabled,Hint和onClick事件響

應(yīng)函數(shù)等。

　　2.動(dòng)態(tài)生成控件方法的應(yīng)用

　　在開(kāi)發(fā)生產(chǎn)調(diào)度與管理系統(tǒng)中，需要?jiǎng)討B(tài)生成排產(chǎn)計(jì)劃圖，以甘特圖表

示，應(yīng)用Shape控件來(lái)顯示零件的加工狀況(每道工序的加工開(kāi)始時(shí)間與結(jié)束

時(shí)間)是非常適合的。應(yīng)用Chart控件，對(duì)加工設(shè)備利用率以三維直方圖顯示

，非常直觀。現(xiàn)分別將在程序中動(dòng)態(tài)生成Shape控件和Chart控件的過(guò)程加以

說(shuō)明。

　　(1).動(dòng)態(tài)生成Shape控件顯示排產(chǎn)計(jì)劃圖(甘特圖)

　　procedure TCreateMultiCharts.ProcCreateCharts;
　　var
　　i,j,Rows,Columns,RowSpace,ChartsHeight:Integer;
　　ShapeChart:array of array of TShape;
　　begin
　　Rows:=16; file://Shape控件數(shù)組行數(shù)
　　Columns:=8; // Shape控件數(shù)組列數(shù)
　　RowSpace:=20; // Shape控件行間距
　　ChartsHeight:=20; // Shape控件高度
　　SetLength(ShapeChart,Rows,Columns);
　　file://設(shè)置ShapeChart數(shù)組大小
　　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為實(shí)數(shù),故需進(jìn)行四舍五入取整
　　Width:=Round(Q[i,j].Value)
　　Height:=ChartsHeight;
　　Brush.Color:=RandomColor;
　　file://自定義函數(shù)，說(shuō)明附后
　　Brush.Style:=bsSolid; file://設(shè)置填充方式
　　Enabled:=True;
　　end;
　　end;
　　end;
　　注:
　　a.Q為一記錄型二維數(shù)組,定義如下:
　　type
　　TempData=Record
　　Value:Real;
　　StartTime:Real;
　　end;
　　Q:array of array of TempData
　　并且在另一過(guò)程已對(duì)Q的分量進(jìn)行賦值。
　　b.為了區(qū)分不同的零件，Shape以不同顏色顯示，此時(shí)，調(diào)用了函數(shù)

RandomColor。該函數(shù)為：
　　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).動(dòng)態(tài)生成Charts控件的ChartSeries組件，顯示設(shè)備利用率
　　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://設(shè)置形狀為三維條形圖
　　NewSeries[i]:=SeriesClass.Create(Self);
　　NewSeries[i].ParentChart:=MachinesBurthenCharts;
　　NewSeries[i].Clear;
　　Burthen:=MachineBurthen[i];
　　Burthen:=Round(Burthen*100)/100; file://只取小數(shù)點(diǎn)后兩位數(shù)字
　　NewSeries[i].add(Burthen,',NewSeries[i].SeriesColor);
　　end;
　　end;
　　注：