把这些控件赋值给一个控件数据,比如: CtrlArray: array[0..9] of TEdit; 这样就可以通过数据操作他们了。
var i:integer; AEdit:Array of TEdit; begin For i:=0 to ADODataSet.RecordCount-1 do begin SetLength(AEdit,i+1); AEdit[i]:=TEdit.Create(self); AEdit[i].Left:=i*115; AEdit[i].Top:=Trunc(i/40)*100; AEdit[i].Width:=40; AEdit[i].Height:=20; AEdit[i].OnClick:=proClick;
但要把问题说得详细些吧
CtrlArray: array[0..9] of TEdit;
这样就可以通过数据操作他们了。
AEdit:Array of TEdit;
begin
For i:=0 to ADODataSet.RecordCount-1 do
begin
SetLength(AEdit,i+1);
AEdit[i]:=TEdit.Create(self);
AEdit[i].Left:=i*115;
AEdit[i].Top:=Trunc(i/40)*100;
AEdit[i].Width:=40;
AEdit[i].Height:=20;
AEdit[i].OnClick:=proClick;
ADODataSet.Next;
end;
end;