问个小问题~关于pagecontrol

Question

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

Answer 1

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;

Answer 2

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