Интерактивные вкладки с кнопкой закрытия для FireMonkey 2: альтернатива Raize TabControl

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

Вопрос о поиске альтернативы компонентам Raize для создания вкладок в Delphi с использованием технологии FireMonkey 2 актуален для разработчиков, которые хотят расширить функциональность стандартных элементов управления. В частности, интерес вызывает возможность добавления кнопки закрытия на каждой вкладке, а также использование наклонных вкладок и цветных оформлений.

Оригинальный компонент Raize и его ограничения

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

Поиск альтернативы

Поскольку FireMonkey является относительно новым фреймворком, количество сторонних компонентов, поддерживающих его, ограничено. На момент запроса пользователя информация о наличии сторонних компонентов вкладок для FireMonkey была неубедительной.

Решение проблемы

Однако, стоит отметить, что сам фреймворк FireMonkey предоставляет встроенный компонент TTabControl, доступный на странице "Common Controls" (по умолчанию). Стилизация этого компонента возможна с помощью TStylebook. Например, добавление кнопки закрытия на вкладку вполне выполнимо.

Пример стилизации вкладки

Для стилизации можно использовать TStylebook, что позволит добавить кнопку закрытия на вкладку. В коде стиля вкладки (tabitemstyle) можно добавить визуальный элемент кнопки, установив его свойства по желанию (выравнивание, расположение и т.д.).

В приложении для установки обработчика нажатия на кнопку закрытия можно использовать метод FindStyleResource. Предположим, что кнопка называется 'CloseButton':

var
  MyTab : TTabItem;
begin
  MyTab := ((TabItem1 as TTabItem).FindStyleResource('CloseButton') as TButton).OnClick := TabClose;
end;

Функция TabClose будет вызываться при нажатии на кнопку закрытия и может содержать код для закрытия соответствующей вкладки.

Пример кода для закрытия вкладки

procedure TForm1.TabClose(Sender: TObject);
var
  _activetab : Integer;
begin
  _activetab := ((Sender as TTabItem).Parent as TTabControl).ActiveTab.Index;
  // Здесь должен быть код для освобождения вкладки и обновления индекса активной вкладки
  // Например:
  // ((Sender as TTabItem).Parent as TTabControl).Tabs[_activetab].Free;
  // ((Sender as TTabItem).Parent as TTabControl).TabIndex := _activetab - 1;
  // (Текущий код является примером, для реального использования необходимо учитывать логику переключения вкладок)
end;

Уточнение по компонентам сторонних разработчиков

В более позднем сообщении упоминается компонент TTMSFMXTabSet от TMSSoftware, который поддерживает функционал с кнопками закрытия и наклонными сторонами вкладок. Этот компонент может быть использован в качестве альтернативы компонентам Raize для проектов на FireMonkey.

Заключение

В статье был рассмотрен процесс стилизации вкладок в FireMonkey, включая добавление кнопок закрытия и изменение цвета вкладок. Также были упомянуты ограничения сторонних компонентов и предложена альтернатива в виде TTMSFMXTabSet для проектов, требующих дополнительной функциональности.

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

Вопрос касается создания интерфейса с интерактивными вкладками в технологии FireMonkey 2, включая использование кнопок закрытия для вкладок и альтернативы компонентам Raize TabControl.

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

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

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