Текущий архив: 2004.05.23;
Скачать: CL | DM;

Вниз

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;

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

---

← →
pasha_golub ©   (2004-05-05 18:29) [2]

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

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2004.05.23;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.023 c