verschiedene groubindex-eigenschaften automatisch einstellen

[Der_Unwissende]

Zitat von Sharky:

Warum nicht ganz einfach so:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to Pred(ComponentCount) do
  begin
    if (Components[i] is TSpeedButton) then
    begin
      (Components[i] as TSpeedButton).GroupIndex := i + 1;
    end;
  end;
end;

Weil

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to Pred(ControlCount) do
  begin
    if (Controls[i] is TSpeedButton) then
    begin
      (Controls[i] as TSpeedButton).GroupIndex := i + 1;
    end;
  end;
end;

schon ausreichen würde

Aber wenn es ein Spiel wird, dass eine Art Minesweeper ist, hm, 100+ Buttons per Hand setzen? Viel Spaß.