CheckBox、ToggleSwitch 代码修改 自动触发 onclick的问题，把onclick的逻辑 写在onmouseup里 解决问题
摘要：半夜2点失眠，继续写博客。。。。。 例子如下： procedure TForm4.btn1Click(Sender: TObject); begin CheckBox1.Checked := True; ToggleSwitch1.State := tssOn; end; procedure TFo
阅读全文
posted @
2024-11-02 02:45
del88
阅读(21)
推荐(0) 编辑
遍历选中的复选框-取值
摘要：可以把复选框加在一个容器上也可以 直接是 窗体上 方法1（窗体上）： var i:integer;beginfor i:=1 to form1.ComponentCount do begin if form1.Components[i-1] is Tcheckbox then begin if Tc
阅读全文
posted @
2011-11-06 16:49
del88
阅读(18)
推荐(0) 编辑
