Для замены панели страниц необходимо:
1.Создать требуемые страницы/подстраницы используя однотипные имена, например Subpage1, Subpage2, Subpage3. Если в проекте имеются страницы, у которых нет подстраниц, то для таких страниц нужно создать пустую подстраницу и задать ей однотипное имя с требуемым номером по аналогии с остальными подстраницами проекта.
2.Скрыть штатную панель страниц кликнув соответствующую иконку слева от панели.
3.Создать новый шаблон.
4.Разместить в шаблоне необходимое количество кнопок, при помощи которых будет производиться переход по страницам. Задать свойство "Тэг" кнопок в соответствии с номерами подстраниц, например у кнопки перехода на подстраницу "Subpage1" установить свойство "Тэг" = 1, у кнопки перехода на подстраницу "Subpage2" установить свойство "Тэг" = 2 и т.д.
5.Перейти в редактор скриптов и создать скрипт с типом события "Универсальный скрипт":
var
aSubPage: TM_SubPage;
begin
{ ищем подстраницу с именем Subpage + значение свойства Тэг кнопки }
aSubPage := GetSubPageByName('Subpage' + IntToStr((Sender as TM_Button).Tag));
if aSubPage <> nil then // если подстраница существует
aSubPage.GoToSubPageClient(GetClientName); // то, перейти на нее
end.
6.Созданный скрипт назначить на событие OnClick всех кнопок перехода по страницам.
7.Переход в меню трендов можно реализовать через кнопку и скрипт по событию OnClick используя процедуру GoToTrendsClient.
8.Через меню "Окна / Шаблоны" -> "Вставить шаблон" выбрать созданный шаблон панели страниц и разместить его на всех страницах проекта.
Теперь при нажатии на кнопки будет происходить переход на нужную страницу.
|