下面是我在一个管理系统中使用的两处代码：
procedure TCostCountForm.TabSet1Click(Sender: TObject);
begin
NoteBook1.PageIndex:=TabSet1.TabIndex;
end;
或
procedure TMainForm.MI_ViewSwitchFlowItemClick(Sender: TObject);
begin
try
CostCountForm.TabSet1.SelectNext(True);
CostCountForm.Notebook1.PageIndex:=CostCountForm.TabSet1.TabIndex;
except
MessageBox(handle,PChar('切换工作流程错误!'),szProgramTitle,MB_OK+MB_ICONERROR);
end;
end;
