Insert(Index: Integer; Sheet: IPageControlSheet);
Index. Позиция, в которую будет вставлена страница.
Sheet. Страница, которая будет вставлена в указанную позицию.
Метод Insert осуществляет вставку новой страницы в указанную позицию в коллекции.
Метод применяется только для новых страниц, которые еще не добавлены в коллекцию. Для управления размещением существующих страниц используйте свойство IPageControlSheet.SheetIndex.
Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1» и компонента PageControl с наименованием «PageControl1».
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Sheets: IPageControlSheets;
Sheet: IPageControlSheet;
Begin
Sheets := PageControl1.Pages;
Sheet := New PageControlSheet.Create;
Sheet.Text := "Введение";
Sheets.Insert(0, Sheet);
End Sub Button1OnClick;
При нажатии на кнопку в коллекцию страниц будет вставлена новая страница. Вкладка страницы будет размещена в начале списка.
См. также: