如何在TTabControl的OnChanging事件中获取新选项卡索引值？

我正在使用Delphi 13，表单上有一个包含4个选项卡的TTabControl。该控件拥有OnChanging（选项卡变更实际发生前）和OnChange（变更完成后）事件，其中OnChanging事件除Sender参数外，还有一个布尔型var参数AllowChange，可用于终止变更。

程序接口代码如下：

procedure MyTabControlChanging(Sender: TObject; var AllowChange: Boolean);
procedure MyTabControlChange(Sender: TObject);

我希望在特定条件下禁止用户激活最后一个选项卡（索引为3）。原本打算通过AllowChange参数实现，但发现在OnChanging事件处理程序中，TabIndex仍为旧值（符合预期），但无法获取即将切换到的新索引值。

目前我采用的解决方案是：在OnChanging事件中保存旧选项卡索引，然后在OnChange事件中检查条件，若不符合则恢复到保存的索引。但我希望有更优雅的实现方式。

请问：是否存在未公开的属性可以在选项卡实际变更前获取新的Tab索引？

解决方案 #

可以通过访问TTabControl的私有成员获取即将切换的新索引，以下两种方式都能实现需求，可根据兼容性要求选择：

方法1：利用RTTI读取私有字段 #

在OnChanging事件中，通过运行时类型信息（RTTI）读取TTabControl的FNewTabIndex私有字段，该字段存储的就是即将切换到的新索引：

uses
  System.Rtti;

procedure MyTabControlChanging(Sender: TObject; var AllowChange: Boolean);
var
  LTabControl: TTabControl;
  LContext: TRttiContext;
  LField: TRttiField;
  LNewIndex: Integer;
begin
  LTabControl := Sender as TTabControl;
  LContext := TRttiContext.Create;
  try
    LField := LContext.GetType(TTabControl).GetField('FNewTabIndex');
    if Assigned(LField) then
    begin
      LNewIndex := LField.GetValue(LTabControl).AsInteger;
      // 判断是否为最后一个选项卡并检查特定条件
      if (LNewIndex = 3) and 你的特定条件 then
        AllowChange := False;
    end;
  finally
    LContext.Free;
  end;
end;

方法2：子类化TTabControl实现兼容获取 #

如果担心私有字段后续版本变动影响兼容性，可以自定义TTabControl子类，暴露新索引的获取方法：

type
  TMyTabControl = class(TTabControl)
  protected
    function GetNewTabIndex: Integer;
  end;

  TForm1 = class(TForm)
    MyTabControl: TMyTabControl;
    // 其他组件声明
  private
    procedure MyTabControlChanging(Sender: TObject; var AllowChange: Boolean);
  end;

implementation

function TMyTabControl.GetNewTabIndex: Integer;
begin
  Result := FNewTabIndex;
end;

procedure TForm1.MyTabControlChanging(Sender: TObject; var AllowChange: Boolean);
var
  LNewIndex: Integer;
begin
  LNewIndex := (Sender as TMyTabControl).GetNewTabIndex;
  if (LNewIndex = 3) and 你的特定条件 then
    AllowChange := False;
end;

注意事项 #

• FNewTabIndex是Delphi 13中TTabControl的私有内部字段，若后续VCL版本调整内部实现，该字段可能被修改；
• 子类化的方式兼容性更强，后续版本若有变动，仅需修改子类的实现逻辑即可。

内容的提问来源于stack exchange，提问作者stevenvh