我是动态的创建edit 一我怎么样判断我已经创建了edit呢?
二我怎么样得到他的edit.text呢?
var
edit:Array[1..100] of tedit;
aa:=0;
bb:=1;
for i:=1 to dbgrid1.Columns.Count do
begin
edit[i]:=Tedit.Create(self);
edit[i].Parent:=form1;
edit[i].Left:=aa;
aa:=aa+edit[i].Width;
edit[i].Top:=10*bb;
if edit[i].Left+edit[i].Width>form1.Width then
begin
bb:=4;
aa:=0;
end;
edit[i].Visible:=true;
end;
二我怎么样得到他的edit.text呢?
var
edit:Array[1..100] of tedit;
aa:=0;
bb:=1;
for i:=1 to dbgrid1.Columns.Count do
begin
edit[i]:=Tedit.Create(self);
edit[i].Parent:=form1;
edit[i].Left:=aa;
aa:=aa+edit[i].Width;
edit[i].Top:=10*bb;
if edit[i].Left+edit[i].Width>form1.Width then
begin
bb:=4;
aa:=0;
end;
edit[i].Visible:=true;
end;
Begin
If (Components[i] is TEdit) And (TEdit(Components[i]).Name='控件名')) then
ShowMessage(TEdit(Components[i]).Text);
End;
按照 wychero(高天) 的程序显示出来是空的提示框,因为每个edit的text和name值是空的,要用tedit(Components[i]).text:='ss';向text赋值