Отслеживание страницы в `TPageControl`: способы без использования `ActivePageIndex`

Delphi , Компоненты и Классы , Вкладки и Страницы

Вопрос пользователя заключается в том, как получить номер страницы в TPageControl, на которой находится определенный объект, не используя свойство ActivePageIndex. Это может быть полезно, например, для определения страницы, на которой расположен конкретный компонент, такой как кнопка или поле ввода.

Отслеживание страницы в TPageControl: способы без использования ActivePageIndex

В процессе разработки приложений с использованием TPageControl в Delphi, разработчики часто сталкиваются с необходимостью определения номера страницы, на которой расположен определенный компонент. В этом материале мы рассмотрим несколько способов решения данной задачи без использования свойства ActivePageIndex.

Способ 1: Использование функции GetPageIndexOfControl

Функция GetPageIndexOfControl позволяет определить номер страницы, на которой расположен переданный в функцию компонент. Ниже приведен пример реализации такой функции:

function GetPageIndexOfControl(c: TControl): Integer;
begin
  Result := -1;
  While Assigned(c.Parent) and not (c is TTabsheet) do
    c := c.Parent;
  if Assigned(c) then
    if c is TTabsheet then
      Result := TTabsheet(c).PageIndex;
end;

Следует отметить, что данная функция предполагает, что компонент напрямую находится на странице TTabsheet и не заключен в другие контейнеры.

Способ 2: Итеративный поиск родительского TTabsheet

Если компонент может быть заключен в другие контейнеры, такие как панели, можно использовать следующий подход:

procedure TForm1.Button1Click(Sender: TObject);
var
  Ctrl: TWinControl;
begin
  Ctrl := Button1.Parent;
  while Assigned(Ctrl) do
  begin
    if Ctrl is TTabSheet then
    begin
      ShowMessage(IntToStr(TTabSheet(Ctrl).PageIndex));
      Break;
    end
    else
      Ctrl := Ctrl.Parent;
  end;
end;

Этот метод ищет родителя TTabsheet, проходя по цепочке родителей компонента.

Способ 3: Обобщенная функция GetParentWithClass

Для упрощения кода и повышения его переиспользуемости можно создать функцию GetParentWithClass, которая возвращает родительский компонент указанного класса:

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;
begin
  TabSheet := GetParentWithClass(Button1, TTabSheet) as TTabSheet;
  PageIndex := TabSheet.PageIndex;
end;

Способ 4: Использование Generics

Для большей универсальности и сокращения кода можно воспользоваться generics:

PageIndex := TComponentUtil.GetParent<TTabSheet>(Button1).PageIndex;

где TComponentUtil - это класс, предоставляющий обобщенные методы для работы с компонентами.

Заключение

В данной статье были рассмотрены различные способы определения номера страницы в TPageControl, на которой расположен компонент, без использования свойства ActivePageIndex. Выбор метода зависит от конкретной ситуации и требований проекта. Важно помнить о том, что компонент может быть заключен в различные контейнеры, и это следует учитывать при выборе метода.

Создано по материалам из источника по ссылке.

Отслеживание страницы в `TPageControl` для определения расположения компонента без использования свойства `ActivePageIndex` может быть выполнено несколькими способами, включая использование функции `GetPageIndexOfControl`, итеративный поиск родительского

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Вкладки и Страницы ::