这段友错吗

Question

这段友错吗
procedure Tmainfrm.rollClick(Sender: TObject);
begin
  infofrm.show;
  infofrm.pagecontrol1.activepage:=TabSheet1;
  mainfrm.hide;
end;
他说tabsheet1没定义啊
怎么改

Answer 1

infofrm.pagecontrol1.activepage:=infofrm.pagecontrol1.pages[0];
tabsheet1不是对象，只是个属性！
或者
infofrm.pagecontrol1.activeindexpage:=0；

Answer 2

应该：infofrm.pagecontrol1.activepage:=infofrm.TabSheet1;

Answer 3

procedure Tmainfrm.rollClick(Sender: TObject);
begin
  infofrm.pagecontrol1.activIndex:=0;
  infofrm.show;  
  mainfrm.hide;
end;