Упорядоченное расположение компонентов на форме

[Рик]

Здрасвуйте. При запуске приложения на форме программно создается массив кнопок. Как их разместить матрицой 4 Х 6? Подобный вопрос я уже когда-то задавал, но вариант сделать как мне ответили не удовлетворил.

[kangreon]

Массив кнопок такой?

...:array[1..24] of TButton;

procedure TForm1.Button1Click(Sender: TObject);
var
  bWidth, bHeight, w, h: integer;
  x, y, c: integer;
begin
  bWidth := 75; // Width кнопки
  bHeight := 25; // Height кнопки
  w := 10; // Отступ между столбцами
  h := 5; // Отступ между строками

  c := 1; // Счетчик кнопок

  for x := 1 to 6 do
    for y := 1 to 4 do
    begin
      Button[c].Left := (x * bWidth) + (x * w) - bWidth;
      Button[c].Top := (y * bHeight) + (y * h) - bHeight;
      Inc(c);
    end;
end;

[xexxex]

Еще вариант

var L, T, J, P: Integer;
begin
  L := 10;
  T := 10;
  for J := 1 to 4 do
    for P := 1 to 6 do
      with TButton.Create(Self) do begin
        Parent := Self;
        Left := L;
        Top := T;
        Inc(T, Height);
        if P = 6 then begin
          Inc(L, Width);
          T := 10;
        end;
      end;

[Рик]

Спасибо за помощь! К сожалению, первый вариант не проканал(, а со вторым все ОК. А как теперь написать процедуру обработки событий этих кнопок? Заранее спасибо.

[xexxex]

var L, T, J, P, aTag: Integer;
begin
  L := 10;
  T := 10;
  aTab := 0;
  for J := 1 to 4 do
    for P := 1 to 6 do
      with TButton.Create(Self) do begin
        Parent := Self;
        Left := L;
        Top := T;
        Inc(T, Height);
        Tag := aTag; // используем у кнопок свойство Tag
        Inc(aTag);
        Caption := IntToStr(Tag);
        OnClick := Self.ButtonClick; 
        if P = 6 then begin
          Inc(L, Width);
          T := 10;
        end;
      end;
/////////////////////////////////////////
type
  TForm1 = class(TForm)
  ....
  ....
  private
    procedure ButtonClick(Sender: TObject);
  end;
  
procedure Form1.ButtonClick(Sender: TObject);
begin
    // для ориентации, таги у кнопок идут сверху-вниз\ справа-налево
  with TButton(Sender) do
  case Tag of
    0: ShowMessage(Caption);
    1:;
      ...
  end;
end;