动态创建控件问题2(50分)

呵呵，还是老问题，运行时动态创建控件后，怎样使控件象设计时那样可以直观用鼠标
拖动？

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Button1.Perform(wm_syscommand,$F012,0);
end;

$F012 是一个魔术数 ^_^

谢了先，待会再给大侠加上50分：－），不过这里还有一个小问题，我的控件是
动态创建的，我岂不是还得给我所有的控件加上OnMouseDown事件属性？而且我的控件已经有了
onclick事件，两者会不会冲突？

当然会冲突，又要响应拖动，又要响应点击，比较困难。

点我的名字进去找找,我问过,有解答的,

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控件，显示零件排产计划图(略)
2、动态生成Chart控件的ChartSeries组件，显示设备利用率(略)

可以手动拖动，先看看条件是拖动还是CLICK

老猫，你的办法有意思，能不能解释一下？

巴库：这个在《Delphi高级开发指南》一书中有示例

$F012是一个魔术数，很有用。另外$F017 好像也可以。

还有，大笨熊：
如果已经有onclick事件,那么不如用OnMouseMove:

procedure TForm1.OnMouseMove(Sender: TObject;Shift: TShiftState; X, Y: Integer);
begin
if ssleft in shift then
begin
releasecapture;
form1.perform(WM_syscommand, $F012, 0);
end;
end;

多人接受答案了。