Последние записи

made in programmersforum 5

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

6th
Мар

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

Posted by Chas under Пост-обзор

Здрасвуйте. При запуске приложения на форме программно создается массив кнопок. Как их разместить матрицой 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;

тема на форуме