怎么根据TabSheet的Caption判断一个TabSheet存在？

Question

怎么根据TabSheet的Caption判断一个TabSheet存在？如果存在，则将该TabSheet设为当前TabSheet

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TTabSheet then
      if TTabSheet(Components[i]).Caption = 'a' then
      begin
        PageControl1.ActivePage := TTabSheet(Components[i]);
        Break;
      end;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to PageControl1.PageCount -1 do
  begin
    if PageControl1.Pages[I].Caption = 'TabSheet2' then
    begin
      PageControl1.ActivePageIndex := I;
      Break;
    end;
  end;
end;

Answer 3

var
  Caption: string;
begin
  Caption:= 'ABC';
  if TabControl1.Tabs.IndexOf(Caption) <> -1 then
    TabControl1.TabIndex:= TabControl1.Tabs.IndexOf(Caption);
end;