如何查找动态生成的控件

Question

在程序中动态生成的TEdit控件数组，Name为Edit_1 到Edit_8
但用FindComponent函数在程序中找不到，
请问有什么其他办法可以根据控件的Name找到该控件

Answer 1

用FindComponent可以查找到动态生成的控件，看看你的代码。
BCB中以下代码看看有没有帮助。Button1动态创建TEdit* edt取名为"edt"
Button2用FindComponent找到前面创建的edt并释放内存void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TEdit *edt = new TEdit(Form1);
  edt->Left =10;
  edt->Top=10;
  edt->Parent = Form1;
  edt->Visible = true;
  edt->Name = "edt";}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  delete ((TEdit*)FindComponent("edt"));
}
//---------------------------------------------------------------------------

Answer 2

运行时动态生成的控件如果要用Components属性去遍历查找是可以，但用这种方法必须保证被查找控件是有Parent属性的，而且使用的是相应的Parent对象的Components属性来查找..........所以，你需要把动态生成控件的Parent属性进行指定！

Answer 3

"在程序中动态生成的TEdit控件数组，Name为Edit_1 到Edit_8"
1：你确定你的代码中有显示的调用 ArrEdit[I].Name := 'Edit'+IntToStr(I);  这行代码？？？
if self.FindComponent(sName) <> Nil2：写一个事件，如TpubEdit.OnClick(Sender: TObject);  在其中写入行代码
 ShowMessage((Sender as TEdit).Name);
 然后在生成Edit时将其OnClick := pubEdit.OnClick;
调试下就知道了

Answer 4

if FindComponent(CreateName)<>nil then
begin
  (FindComponent(CreateName) as TEdit).text:='就是me';
end;

Answer 5

查找控件是有Parent属性的，而且使用的是相应的Parent对象的Components属性来查找
动态创建Parent属性了吗？

Answer 6

procedure TForm1.BitBtn1Click(Sender: TObject);
var
    edt:TEdit;
begin
    edt:=TEdit.Create(form1);///或TEdit.Create(self);
    Edt.Left:=10;
    edt.Top:=10;
    edt.Visible:=true;
    edt.Parent:=Form1;////放在Parent上面。没有也没关系，只要前面Create(form1),后面form1.findcomponent就能够找到
    edt.Name:='edt';
end;procedure TForm1.BitBtn2Click(Sender: TObject);
var
    cp:TComponent;
begin
    cp:=form1.FindComponent('edt');//或self.FindComponent('edt');和前面create 对应
    if cp<>nil then
    begin
        showmessage(TEdit(cp).Name);
        TEdit(cp).Destroy;
    end;
end;