TabSheet: ITabSheetBox;
Свойство TabSheet возвращает компонент, для которого сгенерировано событие.
Sub TabSheetBox1OnTableClick(Sender: Object; Args: ITabSheetEventArgs);
Var
s: String;
Begin
s := Args.TabSheet.Name;
End Sub TabSheetBox1OnTableClick;
После выполнения события в переменной «s» будет содержаться наименование листа, на котором был нажат верхний левый квадрат, выделяющий всю таблицу.
См. также: