Как добавить кнопку с иконкой в конец строки TStringGrid в Delphi: пошаговое руководство

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

В данной статье мы рассмотрим, как можно добавить кнопку с иконкой в конец каждой строки компонента TStringGrid в среде разработки Delphi. Это может быть полезно для добавления дополнительных функций, таких как редактирование или удаление строк, без необходимости использования дополнительных строк с инструментами.

Шаг 1: Создание кнопок в событии FormCreate

Первым шагом является создание кнопок в событии FormCreate, чтобы избежать постоянного создания новых кнопок при каждом обновлении ячейки. Вот пример кода, который создает кнопки:

procedure TForm1.FormCreate(Sender: TObject);
var
  btn: TSpeedButton;
  row: Integer;
  rect: TRect;
begin
  for row := 0 to stringGrid1.RowCount - 1 do
  begin
    rect := stringGrid1.CellRect(1, row); // Предполагаем, что кнопка должна быть в первой колонке
    btn := TSpeedButton.Create(stringGrid1);
    btn.Parent := stringGrid1;
    btn.OnClick := SpeedButton1Click;
    btn.Tag := row; // Тег кнопки устанавливаем в номер строки
    btn.Width := 20;
    btn.Height := rect.Height;
    btn.Visible := False; // Скрываем кнопку, пока не понадобится отобразить
  end;
end;

Шаг 2: Обновление положения кнопок при изменении положения ячеек

Следующим шагом является обновление положения кнопок при изменении положения ячеек, например, при прокрутке TStringGrid. Это достигается путем добавления обработчика события TopLeftChanged:

procedure TForm3.StringGrid1TopLeftChanged(Sender: TObject);
var
  btn: TSpeedButton;
  row: Integer;
  rect: TRect;
  y: Integer;
begin
  y := stringGrid1.Top;
  for row := 0 to stringGrid1.RowCount - 1 do
  begin
    btn := TSpeedButton(stringGrid1.FindComponent(Format('SP%d', [row])));
    if row >= stringGrid1.TopRow then
    begin
      rect := stringGrid1.CellRect(1, row); // Предполагаем, что кнопка в первой колонке
      btn.BoundsRect := rect;
      btn.Visible := rect.Right > 0;
      y := y + stringGrid1.DefaultRowHeight;
    end
    else
      btn.Visible := False;
  end;
end;

Шаг 3: Учет изменения размеров колонок и строк

Для полной функциональности необходимо также обработать изменения размеров колонок и строк, переопределив методы ColWidthsChanged и RowHeightsChanged в классе TStringGrid:

type
  TStringGrid = Class(Grids.TStringGrid)
  procedure ColWidthsChanged; override;
  procedure RowHeightsChanged; override;
  end;

procedure TStringGrid.ColWidthsChanged;
begin
  inherited;
  TopLeftChanged;
end;

procedure TStringGrid.RowHeightsChanged;
begin
  inherited;
  TopLeftChanged;
end;

Шаг 4: Обработка событий кнопок

Не забудьте также реализовать обработчик событий для кнопок, например, SpeedButton1Click, чтобы выполнять необходимые действия при клике на кнопку:

procedure TForm3.SpeedButton1Click(Sender: TObject);
begin
  ShowMessage(TSpeedButton(Sender).Name + ' ' + IntToStr(TSpeedButton(Sender).Tag));
  // Здесь можно добавить код для обработки события клика по кнопке
end;

Заключение

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

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

Пошаговое руководство по добавлению кнопки с иконкой в конец строки компонента `TStringGrid` в среде разработки Delphi.

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

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

:: Главная :: TStringGrid и TDrawGrid ::