delphi checkbox改变checked时不让触发click事件〖模拟radiobutton功能〗
来源:互联网 发布:md5判断密码正确java 编辑:程序博客网 时间:2024/05/01 22:13
需要实现功能:checkbox模拟radiobutton功能
因为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;
案例:
Form上面有2个checkbox:A和B,点击勾选其中一个,自动取消另外一个,并且必须有一个按钮选中,和radiobutton效果一样
第一步实现按钮切换效果,但是选中一个后再点击它就会取消选中,例如选中A自动取消选择B,再点击A,A也会取消选中状态,即A和B都未选中:
procedure TForm1.checkbox1Click(Sender: TObject);
begin
if not checkbox1.Focused then Exit;
checkbox2.Checked := False;
end;
procedure TForm1.checkbox2Click(Sender: TObject);
begin
if not checkbox2.Focused then Exit;
checkbox1.Checked := False;
end;
第二步实现radiobutton最终效果:
procedure TForm1.checkbox1Click(Sender: TObject);
begin
if not checkbox1.Focused then Exit;
checkbox1.ReadOnly := True;
checkbox2.ReadOnly := False;
checkbox2.Checked := False;
end;
procedure TForm1.checkbox2Click(Sender: TObject);
begin
if not checkbox2.Focused then Exit;
checkbox2.ReadOnly := True;
checkbox1.ReadOnly := False;
checkbox1.Checked := False;
end;
- delphi checkbox改变checked时不让触发click事件〖模拟radiobutton功能〗
- delphi checkbox改变checked时不让触发click事件
- 触发checkbox的click事件时遇到的问题
- 触发checkbox的click事件时遇到的问题
- 单击 label 触发 checkbox,checkbox 触发 click
- checkbox click 事件改变当前url时候的问题
- jquery checkbox选中、改变状态、change和click事件
- checkbox的checked事件
- click触发raisevent事件
- checkbox,radiobutton事件练习
- js checkbox的click事件,触发这个复选框的onchange事件的问题
- Gridview中CheckBox列:赋值、改变值触发事件
- 关于JQ对checkbox的click事件触发的一个坑
- 触发click事件 浏览器兼容
- jquery 触发click等事件
- jquery触发click事件问题
- requestFullscreen触发事件click/pointerdown
- click事件多次触发 jquery
- hdu_1528 Card Game Cheater 二分图匹配
- 素数和分解
- 单播、多播和广播
- 最大权闭合图
- C++中fstream为什么要先close再clear
- delphi checkbox改变checked时不让触发click事件〖模拟radiobutton功能〗
- 分页查询示例
- 手工热备份脚本
- matlab实现换行
- hdu 1114完全背包问题
- 软件开发模式
- sizeof简单分析
- c++ 继承
- xcode4.6.1 iphone 5 ios 6 免证真机测试