首页 > 编程 > Delphi > 正文

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

  (a).MachineBurthen[i]为一实型数组,其值为对应设备的利用率,已

在另一函数中计算得到;

  (b). MachinesBurthenCharts为TChart控件,在type段说明。

  3.程序运行结果显示

  (1).动态生成Shape控件,显示零件排产计划图(略)

  (2).动态生成Chart控件的ChartSeries组件,显示设备利用率(略)


上一篇:Delphi中获取打印机设备名和端口名

下一篇:用DELPHI实现特色按钮

发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表
学习交流
热门图片

新闻热点

疑难解答

图片精选

网友关注