CheckBoxes в StringGrid

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

Автор: Joel E. Cant

Пример демонстрирует добавление любого количества чекбоксов в StringGrid. В этом примере необходимо добавить TPanel, а в саму панель включить TstringGrid. Так же необходимо добавить невидимый TcheckBox на форму. Затем добавьте 5 колонок и 4 строки в объект StringGrid.

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  ShowMessage('There it is!!');
end;

// Заполняем заголовок StringGrid

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.Cells[0, 0] := 'A Simple';
  StringGrid1.Cells[1, 0] := 'Way';
  StringGrid1.Cells[2, 0] := 'To';
  StringGrid1.Cells[3, 0] := 'Do It';
  StringGrid1.Cells[4, 0] := 'Check !!';

  AddCheckBoxes; // добавляем чекбоксы...
end;

procedure TForm1.AddCheckBoxes;
var
  i: Integer;
  NewCheckBox: TCheckBox;
begin
  clean_previus_buffer; // очищаем неиспользуемые чекбоксы...

  for i := 1 to 4 do
  begin
    StringGrid1.Cells[0, i] := 'a';
    StringGrid1.Cells[1, i] := 'b';
    StringGrid1.Cells[2, i] := 'c';
    StringGrid1.Cells[3, i] := 'd';

    NewCheckBox := TCheckBox.Create(Application);
    NewCheckBox.Width := 0;
    NewCheckBox.Visible := false;
    NewCheckBox.Caption := 'OK';
    NewCheckBox.Color := clWindow;
    NewCheckBox.Tag := i;
    NewCheckBox.OnClick := CheckBox1.OnClick; // Связываем предыдущее событие OnClick
                                              // с существующим TCheckBox
    NewCheckBox.Parent := Panel1;

    StringGrid1.Objects[4, i] := NewCheckBox;
    StringGrid1.RowCount := i;
  end;
  set_checkbox_alignment; // расположение чекбоксов в ячейках таблицы...
end;

procedure TForm1.clean_previus_buffer;
var
  NewCheckBox: TCheckBox;
  i: Integer;
begin
  for i := 1 to StringGrid1.RowCount do
  begin
    NewCheckBox := (StringGrid1.Objects[4, i] as TCheckBox);
    if NewCheckBox <> nil then
    begin
      NewCheckBox.Visible := false;
      StringGrid1.Objects[4, i] := nil;
    end;
  end;
end;

procedure TForm1.set_checkbox_alignment;
var
  NewCheckBox: TCheckBox;
  Rect: TRect;
  i: Integer;
begin
  for i := 1 to StringGrid1.RowCount do
  begin
    NewCheckBox := (StringGrid1.Objects[4, i] as TCheckBox);
    if NewCheckBox <> nil then
    begin
      Rect := StringGrid1.CellRect(4, i); // получаем размер ячейки для чекбокса
      NewCheckBox.Left := StringGrid1.Left + Rect.Left + 2;
      NewCheckBox.Top := StringGrid1.Top + Rect.Top + 2;
      NewCheckBox.Width := Rect.Right - Rect.Left;
      NewCheckBox.Height := Rect.Bottom - Rect.Top;
      NewCheckBox.Visible := True;
    end;
  end;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if not (gdFixed in State) then
    set_checkbox_alignment;
end;

Пример добавления чекбоксов в компонент StringGrid в Delphi. Код создает панель, добавляет к ней StringGrid и затем добавляет чекбоксы в ячейки грида. Каждый чекбокс имеет свой обработчик события OnClick, который отображает сообщение при клике.

Процедура AddCheckBoxes отвечает за создание и добавление чекбоксов в grid. Она перебирает каждую ячейку в гриде, создает новый чекбокс, устанавливает его свойства (например, заголовок, цвет и тег) и добавляет его на панель. Процедура clean_previus_buffer используется для скрытия и удаления любых ранее добавленных чекбоксов.

Процедура set_checkbox_alignment отвечает за выравнивание чекбоксов в ячейках. Она рассчитывает позицию и размер каждого чекбокса на основе прямоугольника ячейки и устанавливает его свойства соответственно.

Обработчик события StringGrid1DrawCell переопределяется для вызова set_checkbox_alignment при необходимости рисования ячейки, что обеспечивает корректное выравнивание и отображение чекбоксов.

Вот некоторые улучшения, которые можно сделать в коде:

1. Вместо жесткого кодирования количества строк и столбцов в гриде используйте свойства или переменные для увеличения гибкости кода.
2. Процедура clean_previus_buffer могла быть оптимизирована, чтобы только перебирать ячейки, которые ранее были добавлены с чекбоксами, а не все ячейки в гриде.
3. Рассмотрите возможность добавления обработки ошибок для случаев, когда ячейка не содержит чекбокса (например, при очистке чекбокса или удалении его из панели).
4. Код мог бы быть улучшен с помощью более описательных имен переменных и комментариев для улучшения читаемости.

Вот альтернативное решение, которое достигает того же результата с меньшим количеством строк кода:

procedure TForm1.AddCheckBoxes;
var
  i: Integer;
begin
  for i := 0 to StringGrid1.ColCount - 1 do
    StringGrid1.Cells[4, i] := TCheckBox.Create(nil);
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  if ACol = 4 then
    (Sender as StringGrid).Cells[ACol, ARow] := TCheckBox(Sender);
end;

В этом коде процедура AddCheckBoxes создает все чекбоксы и добавляет их в ячейки грида. Обработчик события StringGrid1DrawCell переопределяется для отображения каждого чекбокса в соответствующей ячейке. Этоapproach eliminates the need for separate procedures like set_checkbox_alignment and clean_previus_buffer.

В статье описывается пример добавления любого количества чекбоксов в StringGrid с помощью программирования.

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

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

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