Определение номера элемента массива кнопок в Delphi при их нажатии

Delphi , Синтаксис , Массивы

Вопрос, поднятый пользователем, касается работы с массивом кнопок в среде разработки Delphi. Он использует панели (TPanel) в качестве кнопок и хочет узнать порядковый номер элемента массива при его нажатии, а не его заголовок.

Описание задачи

На форме размещен массив панелей, которые выполняют функцию кнопок. Все панели связаны с одним и тем же обработчиком события нажатия. При нажатии на кнопку пользователь видит ее заголовок, но его цель - определить номер элемента массива, соответствующего этой кнопке.

Решение проблемы

Использование свойства Tag

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

procedure TForm1.MenuActionClick(Sender: TObject);
begin
  with TPanel(Sender) do
  begin
    Font.Bold := true;
    ShowMessage('Номер кнопки: ' + IntToStr(Tag));
  end;
end;

Итерация по контролам на форме

Альтернативный способ - итерация по всем контролам на форме и сравнение с отправителем события. Это может быть неэффективно, если на форме много контролов.

procedure TForm1.MenuActionClick(Sender: TObject);
var
  iter: Integer;
begin
  for iter := 0 to Self.ControlCount - 1 do
  begin
    if Sender = Self.Controls[iter] then
    begin
      // Номер кнопки: iter
      ShowMessage('Номер кнопки: ' + IntToStr(iter));
      Break;
    end;
  end;
end;

Использование TDictionary

Если использовать свойство Tag неудобно или если оно уже занято, можно воспользоваться TDictionary, который позволит хранить соответствие между кнопкой и ее индексом в массиве.

uses
  Generics.Collections;

type
  TForm1 = class(TForm)
    // Объявление словаря для хранения соответствия кнопки и ее индекса
    FButtonArrayIndex: TDictionary<TButton, Integer>;
    // ...
  end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Инициализация словаря
  FButtonArrayIndex := TDictionary<TButton, Integer>.Create;
  // ...
end;

procedure TForm1.MenuActionClick(Sender: TObject);
begin
  if FButtonArrayIndex.ContainsKey(Sender as TButton) then
  begin
    // Получение индекса кнопки из словаря
    ShowMessage('Номер кнопки: ' + IntToStr(FButtonArrayIndex[Sender as TButton]));
  end;
end;

Заключение

Для определения номера элемента массива кнопок в Delphi можно использовать различные подходы, включая свойство Tag и TDictionary. Выбор метода зависит от конкретных требований и предпочтений разработчика.

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

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

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

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

:: Главная :: Массивы ::