|
Страница 30 из 59
Компонент TTabbedNotebook TObject—>TPersistent->TComponent—”TControl->TWinControl-> -”TCuscomControl->TTabbedNoteBook Модуль TABNOTBK Страница Палитры компонентов Additional Этот компонент — уже готовое объединение первых двух компонентов из этого раздела. Очень большим плюсом является то, что в нем закладки могут располагаться не в один, а в множество рядов один над другим. Число закладок в каждом ряду должно быть не более, чем определено в свойстве: (Pb) property TabsPerRow: Integer; Как и TNotebook, этот компонент имеет свойства: property ActivePage: string; property Pagelndex: Integer; property Pages: TStrings; Доступ к активной странице из набора Pages по-прежнему возможно двумя способами — через ActivePage и Pagelndex. Закладки в этой записной книжке располагаются не снизу, а сверху. При их изображении применяется шрифт (Pb) property TabFont: TFont ; причем текст на активной закладке пишется полужирным начертанием (если оно не используется для обычных закладок). Найти индекс страницы с заданным именем позволяет метод function GetlndexForPage(const PageName: string): Integer; а установить фокус по номеру — метод: procedure SetTabFocus(Index: Integer); Щелчок на активной странице инициирует событие OnClick, а ее смена — OnChange: (Pb) property OnChange: TPageChangeEvent; TPageChangeEvent = procedure(Sender: TObject; NewTab: Integer; var AllowChange: Boolean) of object; Параметры этого события идентичны TTabChangeEvent. |