---- 二.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组件，显示设备利用率(略)  

上一页  [1] [2]