Текущий архив: 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.048 c
