Delphi程序中动态生成控件的方法及应用

一、Delphi中生成控件的两种方法 1、 Form(表单)设计中生成控件 在进行Form设计时，直接在控件工具箱选择所需控件，再设置其属性与响应事件，这种方法比较常见。 2、 程序中动态生成控件 有时候，我们需要在程序运行时动态生成控件，这样做有两大优点：一是可以增加程序的灵活性；二是如果生成控件的多少与程序中间运行结果相关，显然方法一是无法的实现的，必须用程序中动态生成方法。 程序中动态生成控件的方法分为三步，首先，定义生成的控件类型，再用Create函数生成控件，最后对控件的相关属性赋值。以TButton控件为例，步骤如下： (1) 定义控件类型 var Button1:TButton; (2) 生成控件 Button1:=TButton. Create(self); Button1.Parent:=Self; //一般将其父控件设置为Self,如果不设置Parent的值， 则控件不会在屏幕 //显示出来 (3) 设置其它属性及定义相关事件响应函数，如Caption,Left,Top,Height,Width,Visible,Enabled,Hint和onClick事件响应函数等。 二、动态生成控件方法的应用 在开发生产调度与管理系统中，需要动态生成排产计划图，以甘特图表示，应用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[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; 注: (1)Q为一记录型二维数组,定义如下: type TempData=Record value:Real; StartTime:Real; end; Q:array of array of TempData 并且在另一过程已对Q的分量进行赋值。 (2)为了区分不同的零件，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:=SeriesClass.Create(Self); NewSeries.ParentChart:=MachinesBurthenCharts; NewSeries.Clear; Burthen:=MachineBurthen; Burthen:=Round(Burthen*100)/100; //只取小数点后两位数字 NewSeries.add(Burthen,'',NewSeries.SeriesColor); end; end; 注： (1) MachineBurthen为一实型数组，其值为对应设备的利用率，已在另一函数中计算得到； (2) MachinesBurthenCharts为TChart控件，在type段说明。 三、程序运行结果显示 1、动态生成Shape控件，显示零件排产计划图(略)