问个小问题~关于pagecontrol

[mdejtod]

就是pagecontrol上有三个tabsheet ,我想当用户选中其中某个页时,其它两个页上的所有的单选框全不选.即.checked为假,就是不懂要怎么判断某个页面上的所有单选框.用owner属性?还是? 帮忙一下,谢谢~~

[mdejtod]

谢谢各位~结贴了~

[王集鹄]

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;

[do2008]

顶伴水~~~

[亮剑_]

zswang的答案已经算又快又好了