Komponenten dynamisch aufrufen

[Nalincah]

So

4 Buttons rein und ein Edit. Da einfach ne Zahl reinschreiben und das ausführen:

Delphi-Quellcode:

  for i := 0 to Form1.ComponentCount - 1 do
  begin
    if Form1.Components[i] is TButton then
    begin
      if TButton(Form1.Components[i]).Caption = 'Button' + Edit1.Text then
      begin
        TButton(Form1.Components[i]).SetFocus;
      end;
    end;
  end;