delphi checkbox改变checked时不让触发click事件

因为checkbox的checked的改变有三种方式,
第一种是直接调用语句:checkbox.checked:=true/false;
第二种是直接点击这个控件,当然前题是要有checkboxClick事件.
第三种是state 表示复选框的当前状态.
cbchecked 表示选中, 
cbunchecked表示未选中, 
cbGrayed表示变灰状态.（allowgrayed 设置true时）
直接点击checkbox的时候要发生一组反应,比如界面上数据的显示变化.而当直接用第一种方法 (checkbox.checked:=true)时,要求没有什么变化,只要打个勾就行了.但这样的语句调用会激发checkbox的 onclick事件,而这是我不想看到的结果.
解决方法：使用焦点(Focused)来区别操作.
就是checkbox的焦点.如果是点击的话,则其焦点就应该为true,
而用语句改变时,checkbox的焦点不为true.这样就能区分两种情况了,
在checkbox的onclick事件中加入的焦点判断这一个条件.
if not chkRelation.Focused then Exit;