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;