CheckBox ы в StringGrid .

← →
denis_group (2004-05-05 17:25) [0]

Как проверить его свойство Checked. Вот как вставлял

procedure 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;

← →
clickmaker © (2004-05-05 18:14) [1]

> StringGrid1.Objects[4, i] := NewCheckBox;

В вопросе уже половина ответа

Вообще-то, насколько я понимаю, после выхода их процедуры NewCheckBox будет освобожден. Соответственно, StringGrid1.Objects[4, i] будет указывать куда-то...

И вообще, я ни хрена не понимаю. Если чекбокс должен быть в гриде, то почему NewCheckBox.Parent := Panel1;

Кто-то из нас пьян.

CheckBox ы в StringGrid . Найти похожие ветки