5,927
社区成员
发帖
与我相关
我的任务
分享问个小问题~关于pagecontrol
就是pagecontrol上有三个tabsheet ,我想当用户选中其中某个页时,其它两个页上的所有的单选框全不选.即.checked为假,就是不懂要怎么判断某个页面上的所有单选框.用owner属性?还是? 帮忙一下,谢谢~~
...全文
请发表友善的回复…
发表回复
亮剑_ 2006-11-20
- 打赏
- 举报
zswang的答案已经算又快又好了
do2008 2006-11-20
- 打赏
- 举报
顶伴水~~~
王集鹄 2006-11-20
- 打赏
- 举报
var
I, J: Integer;
begin
for I := 0 to PageControl1.PageCount - 1 do // 遍历所有页
if PageControl1.ActivePageIndex <> I then // 如果不是当前页
for J := 0 to PageControl1.Pages[I].ControlCount - 1 do // 遍历该页上的所有控件
if PageControl1.Pages[I].Controls[J] is TCheckBox then // 如果该控件是TCheckBox
(PageControl1.Pages[I].Controls[J] as TCheckBox).Checked := False;
end;
I, J: Integer;
begin
for I := 0 to PageControl1.PageCount - 1 do // 遍历所有页
if PageControl1.ActivePageIndex <> I then // 如果不是当前页
for J := 0 to PageControl1.Pages[I].ControlCount - 1 do // 遍历该页上的所有控件
if PageControl1.Pages[I].Controls[J] is TCheckBox then // 如果该控件是TCheckBox
(PageControl1.Pages[I].Controls[J] as TCheckBox).Checked := False;
end;
mdejtod 2006-11-20
- 打赏
- 举报
谢谢各位~结贴了~
