Групповое изменение значений чекбоксов в StringGrid

@SeGun · Регистрация: 23.05.2015

Author24 — интернет-сервис помощи студентам

Приветствую народ.

Есть не плохой пример с внедрением CheckBox(ов) в StringGrid (прилагается).
С примером всё понятно.
Значительно ускорило бы работу, групповое изменение значений CheckBox(ов) по Button на "все отмечены"/"все не отмечены".
Как этого добиться пока не понимаю.
И вообще возможно ли прочитать отмечен CheckBox или нет, не прибегая к изменению дополнительного поля StringGrid?

@SeGun · 06.11.2023, 18:26 **[ТС]**

Все разобрался.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  NewCheckBox: TCheckBox;
begin
  clean_previus_buffer; // очищаем неиспользуемые чекбоксы...
 
  for i := 1 to 4 do
  begin
    //CheckBox1.Checked:=True;
 
    NewCheckBox := TCheckBox.Create(Application);
    NewCheckBox.Width := 0;
    NewCheckBox.Visible := false;
    NewCheckBox.Caption := 'OK';
    //Все дело в этой строке и в целом в этой процедуре
    //Её кстати передалаю в функцию
    NewCheckBox.Checked:=false;
    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;

Добавлено через 35 минут
Что касаемо проверки значения, то пока ничего кроме дополнительного поля не придумал.

	06.11.2023, 18:26