按钮有效性的互置的小问题？

Question

有三个按钮为一组，别5个按钮为一组，当三个按钮为有效时，别5个一组的无效，反之，5个一组的有效时，另3个一组的无效，它有的条件是当pagecontrol选中为sheet1时3个一组的为有效，当选中为sheet2时5个一组的为有效。不知怎样的作

Answer 1

给你例子：
procedure TForm1.PageControl1Change(Sender: TObject);
var
  FirstBtn :Boolean;
  idx :integer;
  ABtn:TButton;
begin
  FirstBtn:= (PageControl1.TabIndex=0);  for idx:=1 to 8 do
  begin
    ABtn := TButton(FindComponent('Button'+IntToStr(idx)));
    if (idx<=3)
    then ABtn.Enabled :=FirstBtn
    else ABtn.Enabled :=not FirstBtn ;  end;
end;

Answer 2

上面即为PageControl1的OnChange事件写的处理代码。
八个按钮名是从Button1到Button8