windows - TPageControl 获取索引

Question

如何获取对象所在页面的编号？例如:第一页有Button1，第二页有Button2，如果没有ActivePageIndex，如何获取有Button1的页码？谢谢。

Answer 1

想要找到特定类的最近父类是很常见的。因此，创建一个函数来做到这一点是有好处的。

function GetParentWithClass(Control: TControl; 
  ClassType: TWinControlClass): TWinControl;
begin
  Result := Control.Parent;
  while Assigned(Result) and not (Result is ClassType) do
    Result := Result.Parent;
end;

一旦准备就绪，您就可以使用它来解决当前的问题。

var
  PageIndex: Integer;
  TabSheet: TTabSheet;
.....
TabSheet := GetParentWithClass(Control, TTabSheet) as TTabSheet;
PageIndex := TabSheet.PageIndex;

像这样分离关注点后，您可以在其他设置中使用 GetParentWithClass。