这段代码问题何在？

qpfmates 发布于 2008-10-18 11:45， 1056 次点击

if Components[i] is TCheckBox then
(Components[i] as TCheckBox ).Checked :=false;
close;谢谢指点！我主要是用这段代码实现：
当我点击退出按钮时，退出子窗体，当我再次进入子窗体时，checkbox前面方框内的对勾消失，也就是为选中的状态

1 回复

ruanjian21102008-10-18 17:17

checkbox前面方框内的对勾消失了，就是没有选中的状态啊。
楼主的代码是没问题的，如果改成(Components[i] as TCheckBox ).Checked :=true;
它就是选中状态了啊。