Как избежать цепи "CheckBox.Checked" -> CheckBoxClick

[Ship_1]

Здравствуйте!
В моей программе один столбец в StringGrid отвечает за наличие/отсутствие определённого свойства. Есть звёздочка - есть наличие. Нет звёздочки - есть отсутствие.
Менять значение поля я решил через CheckBox. Удобно и наглядно. С галочкой - есть; без галочки - нет.
Соответственно, для отмечания через CheckBoxClick заносим или убираем звёздочку в столбец.
Но вот в чём проблема. Переход на другую строку, в которой это свойство отличается, воспринимается тоже как Click. И программа начинает вести себя так, как будто для этой строки тоже нажали на CheckBox. От этого есть избавление без глубокого копания в недра?

[Аватар]

Чего это переход на другую строку в StringGrid чекбоксом воспринимается как Click? Checked правишь? Можно перед правкой OnClick в nil сбрасывать, потом восстанавливать. Или флажком управлять

[Ship_1]

Сообщение от Аватар

Чего это переход на другую строку в StringGrid чекбоксом воспринимается как Click? Checked правишь?

Ну да. В зависимости от звёздочки в колонке checked либо true, либо false.

Сообщение от Аватар

Можно перед правкой OnClick в nil сбрасывать, потом восстанавливать. Или флажком управлять

Можно чуть поподробнее? Я с подобным пока не сталкивался. Это в процедуре события StringGrid OnClick, вызывающего изменение checked, перед этим изменением написать что-то типа CheckBox.onClick:=nil? А после?

[Аватар]

А после CheckBox.onClick:=CheckBoxClick или как там у тебя метод называется нацеленный на OnClick

[come-on]

Мало кода.

[Ship_1]

Сообщение от Аватар

А после CheckBox.onClick:=CheckBoxClick или как там у тебя метод называется нацеленный на OnClick

Да особо никак... Всё банально...

procedure TForm1.StringGrid1Click(Sender: TObject);
Var
  NRow:Integer;
begin

  NRow:=StringGrid1.Row;

  If StringGrid1.Cells[6,NRow]='*' then CheckBox2.Checked:=true else CheckBox2.Checked:=false;
...

end;

И если в 6-м столбце строки таблицы, с которой ушёл, и той, на которую пришёл, значения различаются, по этой процеддуре это вызывает изменение статуса CheckBox2.Checked, вслед за чем происходит выполнение TForm1.CheckBox2Click. Само. Видимо, просто из-за изменения статуса CheckBox2.Checked.
В этом случае как применить

Можно перед правкой OnClick в nil сбрасывать, потом восстанавливать.

[Аватар]

  NRow:=StringGrid1.Row;

  If StringGrid1.Cells[6,NRow]='*' then begin
    CheckBox2.OnClick:=nil;
    CheckBox2.Checked:=true else CheckBox2.Checked:=false;
    CheckBox2.OnClick:=CheckBox2Click;
  end;

[Ship_1]

Спасибо большое!