Buttons ansprechen

[jbg]

Du kannst entweder FindComponent direkt nutzen, oder du baust mit Hilfe dieser Funktion ein Array auf, dass den Zugriff dann etwas beschleunigt und den Code leichter lesbar macht.

Delphi-Quellcode:

private
  Buttons: array of Button;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  Btn: TButton;
begin
 // Achtung: Buttons[0] entspricht danach Btn_1
  i := 1;
  repeat
    Btn := Form1.FindComponent('btn_' + IntToStr(i));
    if Btn <> nil then
    begin
      SetLength(Buttons, Length(Button) + 1);
      Buttons[i - 1] := Btn;
    end;
  until Btn = nil;
end;

procedure TForm1.Btn_1Click(Sender: TObject);
var i: Integer;
begin
  for i := 0 to High(Buttons) do // High(dynA) = Length(dynA) - 1
    Buttons[i].Enabled := False;
end;