对于学习很有帮助

				
				
				
				
				
				Delphi程序中动态生成控件的方法及应用
				
				
				
				
				
				  
				    
				      
				        
				        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[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;
				
				      ---- 注: 
				      ---- (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[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;
				
				      ---- 注： 
				      ---- (1) MachineBurthen[i]为一实型数组，其值为对应设备的利用率，已在另一函数中计算得到； 
				      ---- (2) MachinesBurthenCharts为TChart控件，在type段说明。 
				      三、程序运行结果显示
				      ---- 1、动态生成Shape控件，显示零件排产计划图(略) 
				      ---- 2、动态生成Chart控件的ChartSeries组件，显示设备利用率(略)