Избегайте на странице, которая находится под текущей страницы на TPageControl

Question

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

PageControl1.ActivePageIndex := 4; 

проблема заключается в том приведенная ниже страница, на которую отображается текущая страница, нажимает на его кнопки, когда мышь нажата на приведенной выше странице, как я могу избежать этого поведения? Как я могу избежать распространения щелчка по страницам ниже текущего показанного (то есть текущего индекса)?

Приложение использует CLX как графическую библиотеку вместо VCL.

Answer 1

Delphi не делает щелчок Размножение.

Я бы установил, что кнопка, которая получает клик, помещается на TabSheet, а не на родительский элемент управления. Найдите нужную кнопку в раскрывающемся списке инспектора объектов и нажмите - выбранный элемент будет родителем кнопки. Это TabSheet?

Или вы можете добавить этот код в качестве первой линии вашей кнопки-клик-функции

ShowMessage(TButton(Sender).Parent.Name);