Delphi控件的使用經驗

2019-11-18 19:01:05

字體：大中小

來源：轉載

供稿：網友

---- 一.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;
//一般將其父控件設置為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組件，顯示設備利用率(略)

上一篇：Delphi簡介

下一篇：如何在Delphi中用代碼來完成計算字段的創建