FindComponent (Delphi)

From RAD Studio XE3 Code Examples
Jump to: navigation, search

Language:

Description

The following example creates 20 edit boxes, using FindComponent with the edit box name to access each newly created edit box.

Code

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;

Uses

Personal tools