控件对象引用

The following example creates 20 edit boxes, using FindComponent with the edit box name to access each newly created edit box
procedure TForm1.Button1Click(Sender: TObject);

var
  i: Integer;
const
  NamePrefix = 'MyEdit';
begin
  for i := 1 to 20 do begin
    TEdit.Create(Self).Name := NamePrefix + IntToStr(i);
    with TEdit(FindComponent(NamePrefix + IntToStr(i))) do
    begin
      Left := 10;
      Top := i * 20;
      Parent := self;
    end;
  end;
end;

 

**********************************************************************

动态创建控件（属性和Tag）并绑定事件test

procedure TForm1.test(Sender: TObject);  
var  
   l_busin_flag:Integer;  
begin  
   l_busin_flag:=(Sender as TButton).Tag;  
   ShowMessage(IntToStr(l_busin_flag)+'Hello');  
end;  
  
procedure TForm1.FormCreate(Sender: TObject);  
var  
  btns: TButton;  
  i:Integer;  
begin  
  for i:=0  to  5 do  
  begin  
      btns:=TButton.Create(Self);  
      btns.Width:=100;  
      btns.Height:=20;  
      btns.Caption:=IntToStr(i)+'动态按钮';  
      btns.OnClick:=test;  
      btns.Left:=i*100;  
      btns.Tag:=i;  
      btns.Parent:=Self;  
  end;  
end;