Создание адаптивного интерфейса с динамически генерируемыми кнопками в Delphi

Delphi , Компоненты и Классы , Кнопки

Создание адаптивного интерфейса с динамически генерируемыми кнопками в Delphi

Вопрос создания динамически генерируемых кнопок, которые должны адаптивно заполнять экран, является актуальной задачей для разработчиков интерфейсов в среде Delphi. В этой статье мы рассмотрим, как можно решить эту задачу, используя Object Pascal и примеры кода, которые помогут новичкам разобраться в этом вопросе.

Проблема

Задача состоит в том, чтобы создать кнопки динамически, при этом они должны равномерно заполнять экран. Если создано 10 кнопок, они должны заполнить весь экран, а если 9 — то только 9, и так далее. Кнопки должны адаптироваться под размеры экрана.

Решение

Для решения этой задачи необходимо учитывать размеры родительского компонента, в котором будут размещаться кнопки. В приведенном ниже коде функция CreateButtons создает кнопки, распределяя их по столбцам и строкам в соответствии с заданным количеством и размером родительского компонента.

procedure TForm1.CreateButtons(aButtonsCount, aColCount: Integer; aDestParent: TWinControl);
var
  rowCount, row, col, itemWidth, itemHeight: Integer;
  item: TButton;
begin
  if aColCount > aButtonsCount then
    aColCount := aButtonsCount;
  rowCount := Ceil(aButtonsCount / aColCount);
  itemHeight := aDestParent.Height div rowCount;
  itemWidth := aDestParent.Width div aColCount;
  for row := 0 to rowCount-1 do begin
    for col := 0 to aColCount-1 do begin
      item := TButton.Create(Self);
      item.Caption := Format('Button %d', [(row * aColCount) + col + 1]);
      item.Left := itemWidth * col;
      item.Top := itemHeight * row;
      item.Width := itemWidth;
      item.Height := itemHeight;
      item.Parent := aDestParent;
      Dec(aButtonsCount);
      if aButtonsCount = 0 then
        Break;
    end; // for cols
  end; // for rows
end;

Пример использования функции:

procedure TForm1.Button1Click(Sender: TObject);
begin
  CreateButtons(10, 4, Panel1);
end;

Функция Ceil требует подключения модуля Math.

Дополнительные возможности

Для отображения имен фильмов на динамически созданных кнопках, можно добавить в функцию параметр с вектором имен, которые будут присваиваться кнопкам. Также, для центрирования кнопок, можно изменить размеры и расположение элементов в зависимости от количества кнопок и размера родительского компонента.

Для адаптации под разные разрешения и возможности word-wrap, необходимо дополнительно обработать размеры и стили кнопок, а также использовать более сложные алгоритмы размещения элементов.

Заключение

Создание адаптивного интерфейса с динамически генерируемыми кнопками в Delphi требует учета множества параметров, но с помощью предоставленных примеров кода и рекомендаций, вы сможете успешно решить эту задачу.

Создано по материалам из источника по ссылке.

Описание: Создание интерфейса в Delphi с динамической генерацией кнопок, которые адаптивно заполняют экран, используя Object Pascal для учета размера экрана и равномерного размещения элементов.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Кнопки ::