我希望用户能够按下按钮将TCheckListBox重置为其初始状态(没有选中任何框)。请参见下面的图片，其中显示了我希望在单击按钮后发生的情况：
更改为：
我该如何着手做这件事呢？我知道可能会有循环，但我不确定从哪里开始。提前感谢您的帮助。
zdwk9cvp1#
有一个很好的方法--看看官方的帮助。如果我们打开TCheckListBox帮助页面，选择方法并过滤掉“继承的”方法，我们将看到CheckAll method
CheckListBox1.CheckAll(cbUnchecked);
yvgpqqbh2#
沿着这些思路的东西，让我们假设这些复选框位于一个名为panel1的面板上。
panel1
var n: Integer; begin for n := 0 to panel1.ComponentCount - 1 do if panel1.Components[n] is TCheckbox then Tcheckbox(panel1.components[n]).checked := False; end;
注：如果存在与复选框关联的事件，则需要在修改前将该事件设置为空，并在-Else之后返回该事件，该事件将被触发，就像您点击该框一样。
2条答案
按热度按时间zdwk9cvp1#
有一个很好的方法--看看官方的帮助。
如果我们打开TCheckListBox帮助页面，选择方法并过滤掉“继承的”方法，我们将看到CheckAll method
yvgpqqbh2#
沿着这些思路的东西，
让我们假设这些复选框位于一个名为
panel1的面板上。注：如果存在与复选框关联的事件，则需要在修改前将该事件设置为空，并在-Else之后返回该事件，该事件将被触发，就像您点击该框一样。