Здравствуйте!
В Вашем случае можно скрыть
панель страниц, создать необходимое количество кнопок и написать скрипты на событие OnClick кнопок, например:
begin
Page1.GoToPageClient(GetClientName); // переход на страницу Page1 на клиенте, который вызвал скрипт
end.
Если задать однотипные имена страницам, например Page1, Page2, Page3 , то можно сделать один универсальный скрипт для перехода по всем страницам. Для этого, у кнопки перехода на первую страницу устанавливаем свойство "Тэг" = 1, у кнопки перехода на вторую страницу "Тэг" = 2, у кнопки перехода на третью страницу "Тэг" = 3 и т.д. Затем, переходим в редактор скриптов и создаем скрипт с типом события "Универсальный":
var
aPage: TM_Page;
begin
{ ищем страницу с именем Page + значение свойства Тэг }
aPage := GetPageByName('Page' + IntToStr((Sender as TM_Button).Tag));
if aPage <> nil then // если страница существует
aPage.GoToPageClient(GetClientName); // то, перейти на нее
end.
Далее, этот скрипт назначаем на событие OnClick наших кнопок перехода по страницам.
Также, для максимальной компактности можно сделать только две кнопки "На следующую страницу" и "На предыдущую страницу" и написать скрипт на событие OnClick:
Для кнопки "На следующую страницу"
begin
GoToNextPageClient(GetClientName); // переход на следующую страницу на клиенте, который вызвал скрипт
end.
Для кнопки "На предыдущую страницу"
begin
GoToPrevPageClient(GetClientName); // переход на предыдущую страницу на клиенте, который вызвал скрипт
end.
