Закладки на Веб нет кнопок перехода

[giza]

Не нашел на форуме. Вот такая штука, если закладов много и когда смотришь через Веб, используя маленький экран, то кнопок перехода нет. Что создает сложности. Это как-то исправимо? На скринах видно, один это с десктопа, другой - Веб.

[admin]

Пока только скриптом. Поставьте две кнопки и добавьте код в форму:

Код: Выделить всё

procedure PrevPageBnClick(Sender: TObject);
var
   i: Integer;
begin
   i := dxPageControl1.ActivePageIndex;
   if i > 0 then dxPageControl1.ActivePageIndex := i - 1;
end;

procedure NextPageBnClick(Sender: TObject);
var
   i: Integer;
begin
   i := dxPageControl1.ActivePageIndex;
   if i < dxPageControl1.PageCount - 1 then dxPageControl1.ActivePageIndex := i + 1;
end;

procedure Form_Create;
begin
   PrevPageBn.OnClick := @PrevPageBnClick;
   NextPageBn.OnClick := @NextPageBnClick;
end;


[giza]

Спасибо, все работает. Особенно в сочетании с макетами, которые в соседней ветке обсуждали. Все получилось хорошо. Видимость кнопок в Десктопе убираем, если с мобилы появляются.