уважаемые посетители блога, если Вам понравилась, то, пожалуйста, помогите автору с лечением. Подробности тут.

Компонент Delphi TCardPanel появился в версии Delphi 10.2 TokyoTCardPanel позволяет отображать коллекцию панелей или страниц (элементы управления TPanel), которые отображаются пользователю по одной за раз. TCardPanel отображает активную панель и ее содержимое и вы можете написать код для переключения на любую другую карту или использовать встроенный механизм, позволяющий пользователю последовательно перемещаться между картами жестом смахивания. TCardPanel содержит несколько панелей аналогично TabControl, но у нее нет специального интерфейса, указывающего различные панели (нет возможности показать заголовки страниц пользователю).

Основная информация по компоненту
Вкладка палитры компонентов Windows 10
Исходник официального примера и документация SourceForge DocWiki

Демонстрационный пример показывает возможности работы с компонентом TCardPanel в Delphi, а именно — реализует показ слайд-шоу, состоящего из нескольких картинок. Перемещение от одного слайда к другому может осуществляться как обычным способом (клик по кнопке управления), так и с использованием жеста «смахивание».

Внешний вид демонстрационного приложения представлен на рисунке ниже:

 

Использование компонента

Использование TCardPanel в Delphi аналогично использованию компонента TTabControl.

Демонстрационный пример

Демонстрационный пример, практически не содержит исходного кода, та как все необходимые действия и свойства уже настроены через Object Inspector. Так, значимыми с точки зрения использования компонента TCardPanel участками кода можно считать следующие:

действия по переходу к следующей/предыдущей карте (панели) у TCardPanel:

procedure TCardPanelForm.actNextCardExecute(Sender: TObject);
begin
  CardPanel1.NextCard;
end;
 
procedure TCardPanelForm.actPreviousCardExecute(Sender: TObject);
begin
  CardPanel1.PreviousCard;
end;

Зацикливание перемещения по картам у TCardPanel:

procedure TCardPanelForm.chkLoopClick(Sender: TObject);
begin
  CardPanel1.Loop := chkLoop.Checked;
end;

На рисунке ниже представлен пример работающего демонстрационного приложения:

 

При подготовке статьи использовалась информация со следующих ресурсов:

  1. Официальный репозиторий демострационных примеров Delphi на SourceForge
  2. Документация по компоненту на сайте Embarcadero
  3. Информация по работе с компонентом TCardPanel на сайте Embarcadero

уважаемые посетители блога, если Вам понравилась, то, пожалуйста, помогите автору с лечением. Подробности тут.
1 1 голос
Рейтинг статьи
Подписаться
Уведомить о
0 Комментарий
Межтекстовые Отзывы
Посмотреть все комментарии