"Пробежаться" по checkbox'ам

[bestonix]

Здравствуйте.

В StringGrid'е создал колонку со свойством cbsCheckboxColumn
В процессе работы значения чекбоксов меняются.
Как в итоге "пробежаться" по всем чекбоксам и выяснить их состояние ?

Lazarus IDE 0.9.31 FPC 2.4.3

[WAYFARER]

Перебрать все чекбоксы в цикле?

[bestonix]

Перебрать все чекбоксы в цикле?

Да.
Т.е. как обратиться к полю как к объекту типа TCheckBox.

[cepreu]

Поробуй так:
for i:=0 to checklistbox1.Count-1 do
begin
if checklistbox1.Checked[i] then
begin
showmessage(checklistbox1.Items.Strings[i]);
end;
end;

end;

[Vadim]

cepreu
Похоже Вы невнимательно прочитали первое сообщение.
Чекбоксы находятся внутри ячеек StringGrid.

[Brainenjii]

Как по обычным строкам. '1' - выделенный CheckBox, '0' - не выделенный, '' - среднее значение:

Код: Выделить всё

Procedure TForm1.FormCreate(Sender: TObject);
Begin
  fGrid := TStringGrid.Create(Application);
  With fGrid Do
    Begin
      Parent := Self;
      Align := alClient;
      Columns.Add.ButtonStyle := cbsCheckboxColumn;
      Options := Options + [goEditing];
      RowCount := 5;
    End;

  fButton := TButton.Create(Application);
  With fButton Do
    Begin
      Parent := Self;
      Align := alTop;
      OnClick := @ButtonClick;
    End;
end;

Procedure TForm1.ButtonClick(Sender: TObject);
Var
  i: integer;
  aBuffer: String = '';
Begin
  For i := 0 To fGrid.RowCount - 1 Do
    aBuffer +=  fGrid.Cells[1, i] + ';';
  Caption := aBuffer;
end;


[bestonix]

>Brainenjii

Благодарю за помощь. Всё получилось